求助：加载树权限问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

例子说话好吧？其它地方影响了。

If User.Type <> UserTypeEnum.Administrator AndAlso User.Type <> UserTypeEnum.Developer Then

Filter= "(" & Filter & ") and HGB402 = '" & User.Name & "'"

End If

DataTables("CSsmdj").LoadFilter = Filter

DataTables("CSsmdj").Load()

增加行：用户组为“医疗机构”

e.DataRow("HGB402") = User.Name

DataColchanged事件：用户组分别为“发证机关”和“公安机关”

If e.DataCol.Name = "BCNo" Then

e.DataRow("签发机关") = User.Name

e.DataRow("签发日期") = Date.Now

End If

If e.DataCol.Name = "GB307" Then

e.DataRow("登记机关") = User.Name

e.DataRow("登记日期") = Date.Now

End If

项目事件 LoadUserSetting 用户组为“医疗机构”

If User.Name = "管理员" Then

DataTables("CSsmdj").LoadFilter = ""

Else

DataTables("CSsmdj").LoadFilter = "HGB402 = '" & User.Name & "'"

End If

DataTables("CSsmdj").Load()

If User.Name = "管理员" Then

DataTables("单位").LoadFilter = ""

Else

DataTables("单位").LoadFilter = "GS607 = '" & User.Name & "'"

End If

DataTables("单位").Load()

是否是上述代码有问题？

做例子有点麻烦，现在的项目表都是外部sql数据，内部表的原理是否相通？

做个内部表的例子发上来，一样的。

找到问题所在了。列名变更后没有修改BeforeLoad中的代码（GB402应改为HGB402），修改后的代码如下：

If User.Group = "医疗机构" '如果用户分组是医疗机构

Dim fl As String = "[HGB402] = '" & User.Name & "'"

If e.DataTable.LoadFilter = "" Then

e.DataTable.LoadFilter = fl

ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then '如果没有包括医疗机构条件

e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl

End If

以上代码在切换为用户（如：第一人民医院），会将[HGB402]=“第一人民医院”的数据全部加载（上千条数据），影响速度。

如何修改加上只加载7天以内的数据（最近7天内的出生，列名是“GB311”)的条件？求老师赐教！

代码这样写可以不？

If User.Group = "医疗机构" '如果用户分组是医疗机构

Dim fl As String = "[HGB402] = '" & User.Name & "'and [GB311]>=’ Date.Now.AddDays( -10) ‘"

If e.DataTable.LoadFilter = "" Then

e.DataTable.LoadFilter = fl

ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then '如果没有包括医疗机构条件

e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl

End If

[此贴子已经被作者于2014-6-21 23:20:04编辑过]

主题：求助：加载树权限问题