主题：[建议] 给动态加载表增加一个加载和卸载全部表的方法

权限管理，需要对所有的表（排除系统表）、列（排除系统列）进行遍历然后生成目录树，在目录树中选择（授权可视、可编辑权限），再保存到授权表，不加载进来，遍历时找不到，不改进，手工罗列表的话，以后每一次增或删除了表都要改代码里面增加表名称再加载（不加载表，更遍历不到所有列）

实在不改，我只有手工慢慢罗列了，相信以后会有人有同感的。

以下是SQL2005获取列和表的代码（Access应该也可以用）

select a.name as TblName ,b.name as ColName FROM SysObjects a inner join SysColumns b on a.id = b.id where  a.xtype in ('u','v') and left(b.name,1) <> '_' order by a.name 

U表示数据表，V表示视图表

SELECT  b.name AS 字段名, b.colid AS 字段序号, a.name AS  表名
FROM dbo.syscolumns b RIGHT OUTER JOIN
      dbo.sysobjects a ON b.id = a.id
WHERE (a.name = '表名')
ORDER BY b.colid

只是这样就必须把每个查询表都要在数据库中做好了。

狐表自带的就能获取表名和视图名称。

Select Case e.DataTableName
    Case "表A","表B" '表A和表B无条件加载
    Case Else '其他所有表默认都不加载
        e.Cancel = True
End Select

这样可以偷懒哦