标题：接近数据的提取

1楼

benwong2015 发表于：2023/11/22 17:45:00

如下图，当我选中其中一行的时候，系统能根据选择行的ph的数据，提取出最接近此ph数据的行的序号，如果有多行的时候，其全部满足条件行的序号也提取出来，请问有没有什么代码能简洁实现的；

此主题相关图片如下：qq截图20231122174135.jpg

2楼

y2287958 发表于：2023/11/23 8:25:00

select

3楼

有点蓝 发表于：2023/11/23 8:31:00

比如

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("序号"))

[此贴子已经被作者于2023/11/23 8:31:50编辑过]

共3 条记录, 每页显示 10 条, 页签: [1]