此主题相关图片如下：图片1.jpg

联网公用的数据表有几行编号变暗了，编辑不了？怎么回事？

大师，我在项目中设定了用户登陆后只加载属于本组的数据行。试验打开后确实没问题。但个人用户登陆后点击加载时，出现了所有组的数据行。这个怎么修改呢？

在lodaUserSetting中这样设置。

If User.Group = "市场部" OrElse User.Group =  "管理层"Then
    DataTables("合同台帐").LoadFilter = ""
    DataTables("合同管理明细").LoadFilter = ""
    DataTables("其他合同").LoadFilter = ""
Else
    DataTables("合同台帐").LoadFilter = "签订单位 = \'" & User.Group & "\'"
    DataTables("合同管理明细").LoadFilter = "签订单位 = \'" & User.Group & "\'"
    DataTables("其他合同").LoadFilter = "签订单位 = \'" & User.Group & "\'"
End If
DataTables("合同台帐").Load()
DataTables("合同台帐").LoadChildren("合同管理明细")
DataTables("其他合同").Load()
If User.Group = "市场部" Then
    DataTables("甲方台帐").AllowEdit = True
Else
    DataTables("甲方台帐").AllowEdit = False
End If
If User.Group = "市场部" Then
    DataTables("合同台帐").DataCols("是否欠合同").AllowEdit = True
Else
    DataTables("合同台帐").DataCols("是否欠合同").AllowEdit  = False
End If

选择一个普通用户登陆时本来只加载了本单位的，点击加载树中加载所有行后，所有单位的就都出现了。 

 你去编写对应的表事件->beforeLoad事件

 比如合同台账的事件，代码

If e.DataTable.LoadFilter = "" Then

    If User.Group <> "市场部" AndAlso User.Group <> "管理层"Then 
        e.DataTable.LoadFilter = "签订单位 = \'" & User.Group & "\'"
    End If

End If