主题：表操作

老师，我删除了一张不用的表，另外一张表却无法操作，两张表之间没有关联，也没有引用，请问老师是怎么回事呢？？表现为相关的设置失效，在删除之前是能正常使用的。

无法操作指什么？新增修改?

是指一些设置失效，比如目录树，删除之前是可以用的，删除之后就不能用了，。。。然后看了相关设置，都没有错

目录树怎么不能用啦？窗口无法打开这个问题？看看其所有者表，改成另一个表。

相同的设置，总共有30张表，其中有4张表相同的功能不能用了。。。

Dim tX As New DropTreeBuilder
tX.SourceTable = DataTables("xmxxb") '指定目录树表
tX.TreeCols = "XMMC|XMBM" '指定用于生成目录树的列
tX.SourceCols = "XMMC|XMBM" '指定数据来源列
tX.ReceiveCols = "XMMC|XMBM" '指定数据接收列
Tables("投资统计表").Cols("XMMC").DropTree = tX.Build()
Tables("CZBK2").Cols("XMMC").DropTree = tX.Build()
Tables("成本统计表").Cols("XMMC").DropTree = tX.Build()

 

是这段代码不能用，删除前是可以的，删除表后就不能用了，删除的表名都不在这段代码里。

 

表达清楚你的问题，什么不能用啊。

 

要不你做例子上来。

6楼的代码，直接在命令窗口执行一次，看效果。

还有这段代码也是，删除表之前是可以的，删除后就不能用了。删除的表叫“XMQL”

 

If e.Col.Name = "XZH" Then
   If User.Roles <> "子公司财务" AndAlso USER.NAME <> "管理员" AndAlso  e.Row("填表人") <> User.NAME Then
      If e.Row("填表单位") <> User.GROUP OrElse e.Row("填表人") <> User.NAME Then '在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
         e.Cancel = True
        End If
    End If
Else
    If e.Row("填表单位") <> User.GROUP OrElse e.Row("填表人") <> User.NAME Then '在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
        e.Cancel = True
    End If

End If

If e.Col.Name = "sd" Then
    If User.NAME <> "管理员" Then
       e.Cancel = True
    End If
End If

不 可 能。删除表没有任何关系。