| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- filter 和 LoadFilter 怎么用？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178370) |
| -- 作者：lianghanyu -- 发布时间：2022/7/1 16:29:00 -- filter 和 LoadFilter 怎么用？ 如下代码，我的本意是，在表格里筛选，列出 我想要的项目， 如果当前加载的表格里找不到，我再加载过来后再筛选出来我想要的 麻烦看一下我的代码哪里不对？？ If User.Group = "经理" Then Dim filter As String Dim pro As WinForm.ComboBox = e.Form.Controls("项目编号") If pro.Text IsNot Nothing Then filter = "项目编号 like \'%" & pro.text & "%\'" End If Tables("项目总表").Filter = filter If Tables("项目总表").Position = 1 Then \' DataTables("项目总表").LoadFilter = filter DataTables("项目总表").Load End If End If |
| -- 作者：有点蓝 -- 发布时间：2022/7/1 16:48:00 -- If User.Group = "经理" Then Dim filter As String Dim pro As WinForm.ComboBox = e.Form.Controls("项目编号") If pro.Text > "" Then filter = "项目编号 like \'%" & pro.text & "%\'" if DataTables("项目总表").Find(filter ) is nothing then DataTables("项目总表").appendload(filter ) end if End If Tables("项目总表").Filter = filter End If
|
| -- 作者：lianghanyu -- 发布时间：2022/7/1 17:10:00 -- 谢谢， |