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编辑过]