主题：请问如何横向取最高值

Select Case e.DataCol.Name
    Case "第四列","第二列","第一列","第三列"
        Dim r As DataRow = e.DataRow
        Dim V As Double = r("第一列")
        For Each cl As DataCol In e.DataTable.DataCols
            If r(cl) > v Then
                v = r(cl)
            End If
        Next
        e.DataRow("最大值") = V
End Select

DataColChanged   表属性的这个执行!