以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条件加载数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98346)

--  作者:jamhuton
--  发布时间: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 & "\'"


--  作者:jamhuton
--  发布时间: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()

--  作者:jamhuton
--  发布时间:2017/3/28 15:45:00
--  
谢谢老师