'在命令窗口这样试试:
'找出表A第一列最小值(列必须为数值型,比较整列)
Dim r As Decimal = DataTables("表A").Compute("Min(第一列)")
output.show(r)
'找出表A当前行第一列、第二列、第三列中最小值(列为数值型)
Dim dr As Row = Tables("表A").current '表A当前行
Dim d As Decimal
Dim Values() As Decimal = {dr("第一列"),dr("第二列"),dr("第三列")} '要比较的列
For i As Integer = 0 To values.length - 1
If i = 0 Then
d = Values(i)
ElseIf Values(i) < d Then
d = Values(i)
End If
Next
output.show(d)
[此贴子已经被作者于2013-2-9 9:09:37编辑过]