以下是引用liuxing73151在2011-4-25 23:27:00的发言:
这些代码试过N次了,有问题呀,出现同名时或多个表时会出现不成功的现象!
Select Case User.Name
Case "小林","小赵"
Tables("记帐本").Visible = False
Case "小赵","小潘"
Tables("五金出库管理").Visible = False
Case "小赵","小潘"
Tables("五金入库管理").Visible = False
Case "小潘","小林"
Tables("成品库管理").Visible = False
End Select
这个代码,当我用《小潘》这个用户进去的话,还是会出现《成品库管理》《五金入库管理》也就是说只有第一个《五金出库管理》看不到,不知道是为什么
在比如:
Select Case e.DataTableName
Case "表A" ,“表C”
e.Cancel = (e.User.Name = "张三")
Case "表B", "表C"
e.Cancel = (e.User.Name = "李四")
Case "表C" ,“表A”
e.Cancel = (e.User.Name = "王五")
End Select
这个代码,如果我想让张三不加载《表A,表C》的话,这个可以,但如果李四进去的话,就又会出现问题,就是说他会把《表C》也加载进来,下面的同理,有重复的反正都会出问题,不知道什么回事
按照您的需要更改加载条件!!!!