Dim t As Table = Tables("XXX")
Dim max_ As Double = t.DataTable.Compute("Max(XX)")
Dim dr As DataRow = t.DataTable.Find("[XX] = " & max_)
If dr IsNot Nothing Then
Dim p As Integer = t.FindRow(dr)
If p > -1 Then
t.Position = p '选定此行
Output.Show(p+1) '输出行号
End If
End If
修改表名和列名即可.
[此贴子已经被作者于2016/11/8 13:17:35编辑过]