主题：[求助]分组来加载不同的表

我自己做的用户管理窗口好后，想根据分组来加载不同的表，如何实现呢？

 

Select Case e.DataTableName
    Case "档案管理表_明道七仙岭温泉酒店"    '表A和表B无条件加载
If e.User.Group = "明道七仙岭温泉酒店" Then
e.Cancel = True
End If

 Case "档案管理表_明道七仙岭温泉酒店" ,"可视化授权","档案管理表_八所","档案管理表_九所","档案管理表_保亭项目","可视化授权"
If e.User.Group = "管理员" Then
e.Cancel = True
End If

 

 Case "档案管理表_八所"   
If e.User.Group = "八所" Then
e.Cancel = True
End If

 Case "档案管理表_九所"   
If e.User.Group = "九所" Then
e.Cancel = True
End If

 Case "档案管理表_保亭项目"   
If e.User.Group = "保亭项目" Then
e.Cancel = True
End If

    Case Else '其他所有表默认都不加载
        e.Cancel = True

End Select

修改一下代码吧

都是外部表

此主题相关图片如下：qq截图20140812165935.jpg

就是我点击“增加”“打开”“另存”都没有反应了呀？  之前还是好好的呢

我是自己新做的FTP管理器