- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 接近数据的提取 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189297)
-- 发布时间：2023/11/22 17:45:00
-- 接近数据的提取
如下图，当我选中其中一行的时候，系统能根据选择行的ph的数据，提取出最接近此ph数据的行的序号，如果有多行的时候，其全部满足条件行的序号也提取出来，请问有没有什么代码能简洁实现的；
此主题相关图片如下：qq截图20231122174135.jpg
-- 发布时间：2023/11/23 8:25:00
--
select
-- 发布时间：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)
drs = DataTables("订单").Select("[ph] = " & a)
For Each dr As Datarow In drs
msgbox(dr("序号"))
msgbox(dr("序号"))
Next
[此贴子已经被作者于2023/11/23 8:31:50编辑过]