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 If 4.在项目事件:BeforeLoadInnerTable If e.DataTableName = "产品" AndAlso e.User.Name <> "开发者" Then e.Filter = "[业务员] = '" & e.User.Name & "'" End If