主题：请教逛逛大师

用Compute遍历列的最大值进行对比

获取最大值的列名和值

定位行

感觉应该尽量避免循环嵌套

如果没有删选的话，直接统计列会更好一点

Dim dt As DataTable = DataTables("表A")
Dim dcName As String = ""
Dim iint As Double = 0
Dim i As Double = 0
For Each dc As DataCol In dt.DataCols
    If dc.IsNumeric Then
        i = dt.Compute("Max(" & dc.Name & ")")
        If i>iint Then
            dcName = dc.Name
            iint = i
        End If
    End If
Next
If dcName > "" Then
    Tables("表A").Position = Tables("表A").FindRow(dcName & "=" & iint)
End If