主题：如何在一列里面显示出其前面几行的最大值

DataColChanged事件代码

Dim cs() As String = {"第一列","第二列","第三列","第四列"}

Dim max As Integer

Select Case e.DataCol.Name

    Case "第一列","第二列","第三列","第四列"

        For Each c As String In cs

            max = Math.Max(max,e.DataRow(c))

        Next

        e.DataRow("第五列") = max

End Select