以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  对比列里的数值，取小于等于的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100496)
--  作者：lsyunying
--  发布时间：2017/5/12 13:13:00
--  对比列里的数值，取小于等于的
表1  订单规格    数值是  5152     5232
表2  平方   里面的数值有  5152   5352   60844

比如 5232 的数值对比 表2 里的  如何取得 5352
--  作者：有点色
--  发布时间：2017/5/12 14:09:00
--  

Dim d As Double = 5232
Dim fdr As DataRow = DataTables("表2").Find("平方 >= " & d, "平方")
If fdr IsNot Nothing Then
    msgbox(fdr("平方"))
End If

 

http://www.foxtable.com/webhelp/scr/0396.htm