主题：如何只加载录入员的相关行

1、录入时，在【记录录入员名字的列】自动记录录入员的名字：

 

在表的datacolchanged事件中：（如果是全部表请自己琢磨放在哪）

If e.DataCol.Name <>  "记录录入员名字的列"  

If e.DataRow.IsNull("记录录入员名字的列") Then
    e.DataRow("记录录入员名字的列") = User.Name
End IfE

nd If

 

2、加载录入员录入的行：

 

请在切换主表时，MainTableChanged事件：

DataTables("你的表").LoadFilter = "[记录录入员名字的列] = User.Name"

DataTables("你的表").Load()

 

注：如果你全局代码定义了：Public _UserName As String 并以此登陆了， 那么User.Nmae就换成：

1、 _UserName

2、  '" & _UserName & "'

 

或在其他与当前录入员有关的事件中另加入筛选条件: [记录录入员名字的列] = User.Name

 

不知道我猜测你的要求是不是这样？···