用的是外部表,设置加载表时选择不加载任何行。
设置了一个菜单项,想用户点击时能够加载本人的信息:用的是自定义用户管理(没有用系统的登录界面)如果是张三,加载显示所有行。如果是其他人,只加载本人的行:
Dim Filter As StringSelect Case _UserName Case "张三" Filter = "" '其他用户记载所有行 Case Else Filter = "姓名 = '" & _UserName & "'"End Select
DataTables("数据表").LoadFilter = FilterDataTables("数据表").Load()
上述公式设置后点了没反应,如何解决。