主题：打开项目时加载登录用户负责的数据

我在BeforeLoadInnerTable设置了如下代码:

If e.DataTableName = "S征地记录" Then

    e.Filter ="[_Identify] Is Null"

End If

在LoadUserSetting设置了如下代码:

If User.Name = "开发者" Or User.Name = "管理员" Then

    DataTables("S征地记录").LoadFilter = ""

Else

    DataTables("S征地记录").LoadFilter = "乡 = '" & User.Name & "'"

End If

DataTables("S征地记录").Load()

If User.Name = "开发者" Or User.Name = "管理员" Then

    DataTables("S征地记录").LoadFilter = ""

Else

    DataTables("S征地记录").LoadFilter = "县 = '" & User.Name & "'"

End If

DataTables("S征地记录").Load()

If User.Name = "开发者" Or User.Name = "管理员" Then

    DataTables("S征地记录").LoadFilter = ""

Else

    DataTables("S征地记录").LoadFilter = "项目名称 = '" & User.Name & "'"

End If

DataTables("S征地记录").Load()