以文本方式查看主题

-  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=53222)
--  作者：zyqzyy
--  发布时间：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()
--  作者：Bin
--  发布时间：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
--  作者：zyqzyy
--  发布时间：2014/7/2 17:06:00
--  

收文部门 是多值字段列
--  作者：Bin
--  发布时间：2014/7/2 17:07:00
--  
看3楼
--  作者：zyqzyy
--  发布时间：2014/7/2 17:31:00
--  
谢谢Bin大大！同时感谢 甜 大大！
[此贴子已经被作者于2014-7-2 17:34:35编辑过]