主题：表操作

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

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

相同的设置，总共有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()

 

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

还有这段代码也是，删除表之前是可以的，删除后就不能用了。删除的表叫“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

第一段代码是项目属性里的MaintableChanged事件，第二段代是表属性的PrepaerEdit事件

我也觉得应该不可能啊，两张表之间没有任何关联啊，但事实就是有4张表，删除表后都失效。。。。增加表行、删除 行都不行

重新把这张表复制，改成其他表名，做相同的代码，功能却是可以用的，就是原来的表不行。

老师能远程操作帮我看下就好了，如果我重新做个例子，那例子是可以的，就是某一张表因某个事件后用不了。