是不是与
任务栏topicbar1事件的代码有关,Case "客户管理"
If _userroles.Contains("系统查看") = True OrElse _usergroup = "贸易部" OrElse _userroles.Contains("订单管理") = True Then
MainTable = Tables("客户表")
Forms("客户管理").show
DataTables("客户表").loadfilter = "[_Identify] Is Null"
DataTables("客户表").load
Else
messagebox.show("您没有此操作权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return
End If