[求助]用飞的《[分享]动态创建删除表》，sys_开头的列，非开发人员也可以看得见，应该是看不见的呀

飞的原帖

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16345&authorid=0&page=4&star=1

代码如下：

\'此函数用于动态生成数据表
Dim TblName As String = Args(0)           \'要生成的表名称
Dim SQLStr As String = Args(1)            \'SQL语句
Dim CanEdit As Boolean = Args(2)          \'是否允许修改,用于权限控制

If DataTables.Contains(TblName ) Then
    DataTables(TblName ).Fill(SQLStr, connName, Not CanEdit)
Else
    Dim TblBu As New OuterTableBuilder
    TblBu.TableCaption = TblName
    TblBu.TableName = TblName
    TblBu.ConnectionName = connName
    TblBu.SelectString = SQLStr
    TblBu.Build()
End If
With DataTables(TblName)
    .AllowEdit = CanEdit                           \'根据权限设置是否允许编辑
    .GlobalHandler.PrepareEdit = True              \'开启全局表事件
    .GlobalHandler.DataRowAdding = True
    .GlobalHandler.DataColChanged = True
    .GlobalHandler.DrawCell = True
End With

With Tables(TblName)
    .AutoSizeCols()
    .Grid.AllowFiltering = True
    .Grid.AllowFreezing = True
End With