Foxtable(狐表)用户栏目专家坐堂 → 选择加载筛选


  共有245人关注过本帖树形打印复制链接

主题:选择加载筛选

帅哥哟,离线,有人找我吗?
15666282205
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:546 积分:4332 威望:0 精华:0 注册:2019/1/13 10:12:00
选择加载筛选  发帖心情 Post By:2024/11/28 8:09:00 [只看该作者]

老师,我用下面的代码实现了自动选择,这是个通讯录,登录人可以自己新增,表里有一列“提交人“是登录人的名字。还想加个条件,如果是登录人等于表里的提交人则加载,否则不加载,请您指导。
'------------------------------任意搜索datatable--------------------------
Dim txt As String = e.Form.Controls("TextBox3").Text
Dim tbl As DataTable = Tables("个人通讯录").DataTable
If txt = "" Then
    tbl.loadFilter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.loadFilter = "单位 Like " & txt & " Or 部门或姓名 Like " & txt
End If
tbl.load

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/28 9:00:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox3").Text
Dim tbl As DataTable = DataTables("个人通讯录")
If txt = "" Then
    tbl.loadFilter = "登录人='" & user.name & "'"
Else
    txt = "'%" & txt & "%'"
    tbl.loadFilter = "登录人='" & user.name & "' and (单位 Like " & txt & " Or 部门或姓名 Like " & txt & ")"
End If
tbl.load

 回到顶部
帅哥哟,离线,有人找我吗?
15666282205
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:546 积分:4332 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2024/11/28 17:33:00 [只看该作者]

行了,谢谢!

 回到顶部