新的一天,老师早上好呀!
我的本来设想在按钮中写入加载表的代码。然后单击按钮的时候,就会根据使用者的名字,加载表以达到不同的用户处理不同的行的效果
可是实际运行起来,发现表中还会加载别的用户的数据。不知道问题出在哪儿了? 代码如下
Dim s As String = "项目信息表"
If DataTables.Contains(s) = False '如果表S没有加载
DataTables(s).LoadFilter = "录入信息_录入者='" & user.name & "'" '设置加载条件
DataTables(s).Load() '加载表C
'开启表事件
DataTables(s).GlobalHandler.DataRowAdding = True
DataTables(s).GlobalHandler.PrepareEdit = True
DataTables(s).GlobalHandler.DrawCell = True
DataTables(s).GlobalHandler.DataColChanged =True
DataTables(s).GlobalHandler.DoubleClick =True
DataTables(s).GlobalHandler.Doubleclickrowheader = True '开启表的doubleclickrowheader 属性
DataTables(s).DataCols("录入信息_录入者").AllowEdit = False
DataTables(s).DataCols("录入信息_时间").AllowEdit = False
End If
MainTable = Tables(s)
forms("加载树").show
MainTable.Position = MainTable.Rows.Count -1