比如
Dim a As double= DataTables("订单").sqlcompute("min(abs([ph] - " & Tables("订单").current("ph") & "))","[ph]<>" & Tables("订单").current("ph"))
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[ph] = " & a)
For Each dr As Datarow In drs
msgbox(dr("序号"))
Next
[此贴子已经被作者于2023/11/23 8:31:50编辑过]