- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教老师一个问题~ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137214)
-- 发布时间：2019/6/30 21:36:00
-- 请教老师一个问题~
定义了一个全局变量 filter
然后在loadusersetting里这样设置
If User.Group <>"" Then \'如果用户分组不为空
filter ="产品ID=\'" & User.Group & "\'" \'如果有对应的分组数据,加载数据
Else
filter="" \'如果没有分组,不在家数据
End If
With DataTables("产品")
.loadfilter = filter
.load()
End With
在查询界面的文本框 enter 里输入如下代码 加一个 filter 条件 不行
If e.keycode = keys.enter Then
Dim s As String = e.Sender.Text
Dim f As String
Dim ss As String()=s.split(",")
For Each t As String In ss
f=f & " Or 产品名称 Like \'%" & t & "%\'"
Next
f=f.Remove(0,4)
With DataTables("查询")
.LoadFilter= f & filter
.Load()
End With
End If
-- 发布时间：2019/6/30 21:38:00
--
文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:订单系统.foxdb |
-- 发布时间：2019/6/30 21:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多表统计.rar |
-- 发布时间：2019/7/1 10:13:00
--
If e.keycode = keys.enter Then
Dim s As String = e.Sender.Text
Dim f As String
Dim ss As String()=s.split(",")
For Each t As String In ss
f=f & " Or 产品名称 Like \'%" & t & "%\'"
Next
f=f.Remove(0,4)
With DataTables("查询")
.LoadFilter= iif(filter>"", filter & " and (" & f & ")", f)
msgbox(.LoadFilter)
.Load()
End With
End If