datagrid 自动创建列 不能触发 SortCommand 事件.
在创建datagrid 有 写
Sub ini_datagrid(ByVal dt As DataTable)
DataGrid_bankroll.Columns.Clear()
DataGrid_bankroll.AutoGenerateColumns = False
DataGrid_bankroll.AllowSorting = True
Dim col As BoundColumn
Dim i As Int16
For i = 0 To dt.Columns.Count - 1
Dim a As String
col = New BoundColumn
col.HeaderText = dt.Columns(i).ColumnName
col.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
col.HeaderStyle.Wrap = False
col.ItemStyle.Wrap = True
col.DataField = dt.Columns(i).ColumnName
col.SortExpression = dt.Columns(i).ColumnName.ToString
DataGrid_bankroll.Columns.Add(col)
Next
AddHandler DataGrid_bankroll.SortCommand, AddressOf DataGrid_bankroll_SortCommand
End Sub