以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表操作  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77193)

--  作者:爱相随
--  发布时间:2015/11/12 15:52:00
--  表操作
老师,我删除了一张不用的表,另外一张表却无法操作,两张表之间没有关联,也没有引用,请问老师是怎么回事呢??表现为相关的设置失效,在删除之前是能正常使用的。
[此贴子已经被作者于2015/11/12 15:54:49编辑过]

--  作者:大红袍
--  发布时间:2015/11/12 15:54:00
--  
无法操作指什么?新增修改?
--  作者:爱相随
--  发布时间:2015/11/12 15:57:00
--  
以下是引用大红袍在2015/11/12 15:54:00的发言:
无法操作指什么?新增修改?

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

[此贴子已经被作者于2015/11/12 15:58:15编辑过]

--  作者:大红袍
--  发布时间:2015/11/12 16:00:00
--  

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


--  作者:爱相随
--  发布时间:2015/11/12 16:02:00
--  
相同的设置,总共有30张表,其中有4张表相同的功能不能用了。。。
--  作者:爱相随
--  发布时间:2015/11/12 16:06:00
--  

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()

 

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


--  作者:大红袍
--  发布时间:2015/11/12 16:06:00
--  
以下是引用爱相随在2015/11/12 16:02:00的发言:
相同的设置,总共有30张表,其中有4张表相同的功能不能用了。。。

 

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

 

要不你做例子上来。


--  作者:大红袍
--  发布时间:2015/11/12 16:07:00
--  
6楼的代码,直接在命令窗口执行一次,看效果。
--  作者:爱相随
--  发布时间:2015/11/12 16:08:00
--  

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


--  作者:大红袍
--  发布时间:2015/11/12 16:09:00
--  
不 可 能。删除表没有任何关系。