以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  条件语句改写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170341)

--  作者:wangglby
--  发布时间:2021/7/22 14:54:00
--  条件语句改写
请教下,以下表的 datacolchanged  代码
CSng(right(dr("材料标识"),(dr("材料标识")).length-dr("材料标识").Indexof(">")-1) ) = 2

想改成一个 filter  放在窗口 afterload 代码里,


请问怎么改

--  作者:有点蓝
--  发布时间:2021/7/22 15:04:00
--  
"材料标识"数据是怎么样的?要做什么筛选?
--  作者:wangglby
--  发布时间:2021/7/22 15:07:00
--  

材料标识 一般是这样的 “板材<q235>6”  


想筛选 “>” 右边的数字(可能是小数), 按指定的值进行筛选


比如 在表D的 材料标识列 做个筛选,筛选  “>” 右边的数字等于 b 的行

Dim b As Single= Tables("表A").current("物料信息_厚")

filter = " 材料标识                                  = \'" & b & "\' "

DataTables("表d").loadFilter = filter
DataTables("表d").load选
[此贴子已经被作者于2021/7/22 15:16:37编辑过]

--  作者:有点蓝
--  发布时间:2021/7/22 15:16:00
--  
如果要做加载条件就可以,筛选条件没有办法
--  作者:有点蓝
--  发布时间:2021/7/22 15:17:00
--  
建议增加一个辅助列,把需要的值先提取出来
--  作者:wangglby
--  发布时间:2021/7/22 15:18:00
--  
加载条件怎么写的 
--  作者:有点蓝
--  发布时间:2021/7/22 15:24:00
--  
Mid(材料标识,InStr(材料标识,\'>\')+1,len(材料标识)-InStr(材料标识,\'>\') ) = 2