- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这个加载条件如何写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53222)
-- 发布时间：2014/7/2 16:50:00
-- [求助]这个加载条件如何写
这几天脑子实在不好使，请大大们指点！
实现目的：窗口中的Table加载条件，加载登录用户所属部门要接收的文件记录，也就是该用户不接收的文件不显示。文件表中有一列是 收文部门，用户信息表中有用户姓名及用户所属部门。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:文件管理.foxdb |
-- 发布时间：2014/7/2 16:59:00
--
Dim fdr As DataRow = DataTables("用户信息").Find("姓名 = \'" & user.Name & "\'")
If fdr IsNot Nothing Then
Tables("窗口1_Table1").DataTable.LoadFilter = "收文部门 = \'" & fdr("部门") & "\'"
Else
Tables("窗口1_Table1").DataTable.LoadFilter = "1=2"
End If
Tables("窗口1_Table1").DataTable.Load()
-- 发布时间：2014/7/2 17:02:00
--
Dim dr As DataRow = DataTables("用户信息").Find("姓名=\'" & user.name & "\'")
If dr IsNot Nothing Then
Tables("文件表").Filter="收文部门=\'" & dr("部门") & "\' or 收文部门 like \'%," & dr("部门") & "\' or 收文部门 like \'" & dr("部门") & ",%\' or 收文部门 like \'%," & dr("部门") & ",%\'"
End If
-- 发布时间：2014/7/2 17:06:00
--
收文部门 是多值字段列
-- 发布时间：2014/7/2 17:07:00
--
看3楼
-- 发布时间：2014/7/2 17:31:00
--
谢谢Bin大大！同时感谢 甜 大大！
[此贴子已经被作者于2014-7-2 17:34:35编辑过]