这里有14组用户,组名分别为01,02,至14。我的目标是想让01组的用户登录时,只能看到所有表中[qzh]字段=01的数据,即只显示组名与qzh的值相同的数据。而整个程序的表大概有10张,如ajk、tblwjk、zpaj、zpjn、cxaj、cxjn等表。代码应如何编制?
1.每张表中都加一列:qzh,然后根据不同用户加载不能数据
2.增加几个用户
3.表
DataColChanged 事件中
If e.DataCol.Name = "产品" Then '
If e.DataRow.IsNull("产品") Then '
e.DataRow("业务员") = Nothing '
Else
e.DataRow("业务员") = User.Name
End If
End If4.在项目事件:
BeforeLoadInnerTableIf e.DataTableName = "产品" AndAlso e.User.Name <> "开发者" Then
e.Filter = "[业务员] = '" & e.User.Name & "'"
End If
[此贴子已经被作者于2009-7-1 13:34:20编辑过]
在beforeloadinnettable事件中设置,以下仅提供思路,代码不全
If e.DataTableName = "表名" AndAlso e.User.Name = "权限组数据" Then
e.SelectString = "Select * From [表名] Where [qzh] =
End If
新手回贴,有错莫怪...
[此贴子已经被作者于2009-7-1 14:14:27编辑过]