主题：升级后感觉不流畅了……

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