如附件：如果我当前登录用户是  "甲"（分公司为“A”），那么我希望打开系统后。1、“出入库清单”表中只显示分公司为“A”的1、2、4、6行内容；"材料表"中只显示1、2、5行内容。2、如果我在“出入库清单”表中增加一行、那么在该表的“分公司”列中自动填入“A”；3、如窗口中的“材料名称”中、只显示分公司为“A”的 蜡烛、台灯、蚊香等3种材料。

此主题相关图片如下：360截图20140619222653218.jpg


此主题相关图片如下：360截图20140619222710593.jpg

项目事件

 

BeforeLoadInnerTable

 

e.Filter = "1=2"

 

AfterOpenProject

 

Forms("窗口1").Open()

MainTable = Tables("出入库清单")

 

LoadUserSetting

 

Dim fdr As DataRow = DataTables("登陆用户").SQLFind("用户名 = \'" & user.Name & "\'")

If fdr IsNot Nothing Then

    _usergroup = fdr("分公司")

End If

For Each dt As DataTable In DataTables

    If dt.DataCols.Contains("分公司") Then

        dt.GlobalHandler.DataRowAdded = True

        dt.LoadFilter = "分公司 = \'" & _usergroup & "\'"

        dt.Load

    End If

Next

 

DataRowAdded

 

e.DataRow("分公司") = _usergroup

 

计划管理

 

表事件

 

窗口表事件

 

窗口与控件事件

自定义函数

 

全局代码

 

Public _usergroup As String

 

菜单事件

其中

项目事件

 

BeforeLoadInnerTable

 

e.Filter = "1=2"

是什么意思？为什么有这条命令后。我打开项目就会出现有些内部表的的内容就像外部表没有加载数据那样、全部都是空的；如果我删掉这条命令、就正常啦？