主题：如何获取最大值

Dim maxName As string = "A"

Dim maxValue As Integer = e.DataRow("A")

Dim Names() As  String = {"B","C","D"}

For Each Name As string In Names

   If e.Datarow(name) > maxValue Then

       maxName = name

       maxValue = e.DataRow(name)

   End If

Next

e.DataRow("最大值") = maxName