- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]我是小白，我想问一下这样的情况下代码要怎么写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42992)
-- 发布时间：2013/11/27 17:43:00
-- [求助]我是小白，我想问一下这样的情况下代码要怎么写？
此主题相关图片如下：未命名.jpg
如果表A.表B的是否处理全部勾选 则表A的是否处理 自动勾选 这个代码要怎么写，要写在哪个事件里面呢 ？
-- 发布时间：2013/11/27 17:50:00
--
在子表的DataColChanged事件中
if e.datacol.name="是否处理" then
dim drlist as List(or datarow) = datatables("表B").select("编号=\'" & e.datarow("编号") & "\'")
if drlist.count=DataTables("表B").Compute("count(编号)","编号=\'" & e.datarow("编号") & "\' and 是否处理=true") then
e.datarow.GetParentRow("表A")("是否处理")=true
end if
end if
[此贴子已经被作者于2013-11-27 17:53:56编辑过]
-- 发布时间：2013/11/27 17:52:00
--
子表的DataColChanged事件：
If e.DataCol.name = "是否处理" Then
Dim pr As DataRow= e.DataRow.GetParentRow("表A")
If pr IsNot Nothing Then
Dim crs As List(of DataRow) = pr.GetChildRows("表B")
Dim cnt As Integer
For Each cr As DataRow In crs
If cr("是否处理") = True Then
cnt = cnt + 1
End If
Next
If cnt = crs.Count Then
pr("是否处理") = True
Else
pr("是否处理") = False
End If
End If
End If
-- 发布时间：2013/11/27 18:02:00
--
谢谢狐爸和BIN ，我去测试一下
-- 发布时间：2013/11/27 18:04:00
--
此主题相关图片如下：未命名.jpg
Bin 复制你的代码后是这样子的
狐爸的代码达到了想要的效果，谢谢，谢谢你们
[此贴子已经被作者于2013-11-27 18:05:07编辑过]