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

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

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 Else '其他所有表默认都不加载
        e.Cancel = True

End Select