DataGridView的SortCompare事件不會觸發動態添加到TabControl

Question

使用數據表作爲datagridview的數據源工作得非常好，但是，當列正在排序時，我無法獲取Dgv_SortCompare事件。主要問題是dgv值中的（純粹）數值列列中的數值被排序爲文本，例如， 1211.6小於89.7

In Button1: 

Dim datagridview1 As New DataGridView 
datagridview1.AutoSize = True 
datagridview1.AutoResizeRows() 
datagridview1.AutoResizeColumns() 
datagridview1.ClearSelection() 
DoubleBuffered(datagridview1, True) 

datagridview1.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders) 
Dim dgvColumnHeaderStyle As New DataGridViewCellStyle() 
dgvColumnHeaderStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 
datagridview1.ColumnHeadersDefaultCellStyle = dgvColumnHeaderStyle 
datagridview1.AllowUserToAddRows = False 
datagridview1.ScrollBars = ScrollBars.Both 
datagridview1.Dock = DockStyle.Fill 

datagridview1.Refresh() 
datagridview1.VirtualMode = False 

Dim dgv As New DGVCREATE(datagridview1, dataarray, columnheaders, rowheaders, InputFeatureNames, InputObjectNames) 

TabControl2.SelectedTab = TabControl2.TabPages.Item(0) 
TabControl2.TabPages(0).Controls.Clear() 
AddHandler() datagridview1.SortCompare, AddressOf dgv_SortCompare 
TabControl2.TabPages(0).Controls.Add(datagridview1) 
AddHandler CType(TabControl2.TabPages(0).Controls(0), DataGridView).SortCompare, AddressOf Me.dgv_SortCompare 



Public Class DGVCREATE 

    Sub New(ByRef dgv As DataGridView, ByVal dataarray(,) As Object, ByVal columnheaders() As String, ByVal rowheaders() As String, ByVal FieldNames() As String, ByVal RowNames() As String) 

     dgv.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing 

     ' Create the output table. 
     GetResultsTable(rxdataarray, columnheaders, rowheaders, FieldNames, RowNames) 

     'new trial code 
     dgv.AutoGenerateColumns = False 

     dgv.DataSource = Form1.MainDataTable 
     dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill 

     'Set Column FillWeight in very large DGVs in order to prevent exception related to 「Sum of FillWeight exceeds 65000」 

     For i As Integer = 0 To Form1.MainDataTable.Columns.Count - 1 
      Dim Column As New DataGridViewTextBoxColumn 
      Column.Name = Form1.MainDataTable.Columns(i).ColumnName 
      Column.DataPropertyName = Form1.MainDataTable.Columns(i).ColumnName 
      Column.HeaderText = Form1.MainDataTable.Columns(i).ColumnName 
      Column.FillWeight = 20 
      Column.MinimumWidth = 20 
      dgv.Columns.Add(Column) 
     Next i 

     For i As Integer = 0 To dgv.Columns.Count - 1 
      If InputFeatureType(i + 1) = 1 Then 
       dgv.Columns(i).ValueType = GetType(Int64) 
       dgv.Columns(i).SortMode = DataGridViewColumnSortMode.Automatic 
      End If 
      If InputFeatureType(i + 1) = 2 Then 
       dgv.Columns(i).ValueType = GetType(Double) 
       dgv.Columns(i).SortMode = DataGridViewColumnSortMode.Automatic 
      End If 
      If InputFeatureType(i + 1) = 3 Then 
       dgv.Columns(i).ValueType = GetType(Double) 
       dgv.Columns(i).SortMode = DataGridViewColumnSortMode.Automatic 
      End If 
      If InputFeatureType(i + 1) = 4 Then 
       dgv.Columns(i).ValueType = GetType(String) 
       dgv.Columns(i).SortMode = DataGridViewColumnSortMode.Automatic 
      End If 
     Next i 

     dgv.AutoSize = True 
    End Sub 

    Public Sub GetResultsTable(ByVal dataarray(,) As Object, ByVal columnheaders() As String, ByVal rowheaders() As String, ByVal fieldnames() As String, ByVal rownames() As String) 
     Form1.MainDataTable.Clear() 
     Form1.MainDataTable.Rows.Clear() 
     Form1.MainDataTable.Columns.Clear() 
     ' Loop through all process names. 
     For j As Integer = 0 To UBound(columnheaders) - 1 
      ' The current process name. 
      ' Add the program name to our columns. 
      Form1.MainDataTable.Columns.Add(fieldnames(j + 1)) 
      'Form1.MainDataTable.Columns.Add(fieldnames(j + 1)) 
      ' Keep adding rows until we have enough. 
      Do While Form1.MainDataTable.Rows.Count < UBound(rowheaders) 
       Form1.MainDataTable.Rows.Add() 
      Loop 
      ' Add each item to the cells in the column. 
      For i As Integer = 0 To UBound(rowheaders) - 1 
       Form1.MainDataTable.Rows(i)(j) = dataarray(i, j) 
      Next i 
     Next j 
    End Sub 
End Class 

有什麼建議嗎？

Answer 1

你有很多不需要的代碼。首先，你想避免裝箱你的數據As Object，因爲它阻止像DGV這樣的東西看到它是什麼類型。 A DataTable完全能夠存儲輸入的數據。如果你有，你可以創建一個類表現得像一個DTO：

Public Class DataItem 
    Public Property Able As Int64 
    Public Property Baker As Double 
    Public Property Charlie As Double 
    Public Property Delta As String 
End Class 

由於DataTable可以容納多種類型，代替DataArray使用，並避免數據hopscotching有它的方式：

Private dtData As DataTable 
... 
' create it somewhere 
dtData = New DataTable 
dtData.Columns.Add("Able", GetType(Int64)) 
dtData.Columns.Add("Baker", GetType(Double)) 
dtData.Columns.Add("Chanrlie", GetType(Double)) ' aka Charlie 
dtData.Columns.Add("Delta", GetType(String)) 

填充數據：

For n As Int32 = 0 To 999 
    dr = dtData.NewRow 

    dr(0) = RNG.Next()  ' random value 
    dr(1) = RNG.NextDouble() ' random 0.00 to 1.0 
    dr(2) = RNG.Next(-19, 20) + RNG.NextDouble() ' -19.xx to +19.xx 
    dr(3) = RD.GetNames(2, 35) ' 2 random names 
    ' add new row: 
    dtData.Rows.Add(dr) 
Next 

當它被填滿，讓DGV爲您創建的列 - 它會從源中讀取數據類型等：

dgv1.DataSource = dtData 
For Each dc As DataGridViewColumn In dgv1.Columns 
    Console.WriteLine(dc.ValueType) 
Next 

的DGV看到的類型和將正確排序，它們中的任何：

System.Int64
System.Double
System.Double
System.String