If e.DataCol.name <> "第一列"
Dim s As String = "三|七|九|十"
Dim Values() As String
Values = s.split("|")
Dim Dt As New List(Of Date)
For i As Integer = 0 To Values.Length - 1
Dt.Add(e.DataRow("第" & Values(i) & "列"))
Next
Dt.Sort
e.DataRow("第一列") = dt(Dt.Count-1)
For i As Integer = 0 To Values.Length - 1
If e.DataRow("第" & Values(i) & "列") = dt(Dt.Count-1) Then
MessageBox.Show("第" & Values(i) & "列")
End If
Next
End If