主题：指定列的最大日期怎么求?

标题和实际要求不符，您的实际要求应该是这个：

e.datarow("第一列") = Math.Max(e.datarow("第三列"),e.datarow("第七列"),e.datarow("第九列"),e.datarow("第十列"))

我的疏忽，本办法可以用这个：

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)
End If