- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 条件加载数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98346)
-- 发布时间：2017/3/28 13:03:00
-- 条件加载数据
Dim filter As String
Dim sts() As String = {"客户简称","客户名称","地址","邮编","代码","业务员"}
For Each st As String In sts
Dim val As String = e.Form.Controls(st).value
If val > "" Then
val = val.Replace("*","[*]")
If filter = "" Then
filter = st & " like \'%" & val & "%\'"
Else
filter = filter & " and " & st & " like \'%" & val & "%\'"
End If
End If
Next
filter = filter & " And 业务员 = \'users\'"
DataTables("客户JK").LoadFilter = filter
DataTables("客户JK").Load()
想达到目的：不同的用户加载业务员等于登录用户的数据。
请老师修改代码
[此贴子已经被作者于2017/3/28 13:26:38编辑过]
-- 发布时间：2017/3/28 15:25:00
--
filter = filter & " And 业务员 = \'" & user.Name & "\'"
-- 发布时间：2017/3/28 15:29:00
--
此主题相关图片如下：1.jpg
阿里云的sql数据库
[此贴子已经被作者于2017/3/28 15:37:26编辑过]
-- 发布时间：2017/3/28 15:36:00
--
直接写
DataTables("客户JK").LoadFilter = "业务员 like \'%" & user.Name & "%\'"
DataTables("客户JK").Load()
-- 发布时间：2017/3/28 15:45:00
--
谢谢老师