定义了一个全局变量 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
加好友 
发短信
Post By：2019/6/30 21:36:00 [显示全部帖子]
