- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代码冲突代码修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59113)
-- 发布时间：2014/10/29 21:15:00
-- [求助]代码冲突代码修改
1.表A分别与表B、表C关联,
2.表B中逻辑列"转表C"打勾后,自动将相关内容自动转表C,
3.表C中逻辑列"发货"全打勾后,表A中逻辑列"全发货"将自动打勾(如果表C中有一行不打勾,表A中"全发货"就会自动退勾
问题：
当我在表C中加入代码后,表B逻辑列"转表C"打勾后,就会跳出错误提示,关闭后虽然也运行,但不知这个提示是什么意思,请老师帮忙修改一下,谢谢!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码冲突.table |
-- 发布时间：2014/10/29 21:18:00
--
具体情况看窗口1,麻烦老师们,谢谢!
-- 发布时间：2014/10/29 21:24:00
--
改一下表C的代码
If e.DataCol.name="发货" AndAlso e.DataRow.GetParentRow("表A") IsNot Nothing Then
Dim rlist As List(of DataRow)=e.DataTable.Select("A=\'" & e.DataRow("A") & "\' and 发货=true")
If rlist.count=e.DataTable.Select("A=\'" & e.DataRow("A") &"\'").count Then
e.DataRow.GetParentRow("表A")("全发货")=True
Else
e.DataRow.GetParentRow("表A")("全发货")=False
End If
End If
-- 发布时间：2014/10/29 21:27:00
--
谢谢有点甜老师!