以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表勾选?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32094)

--  作者:wqb1102
--  发布时间:2013/4/25 16:06:00
--  跨表勾选?
If e.DataCol.name = "审核" Then
Dim pr As DataRow = e.DataRow.GetParentRow("订单")
If pr IsNot Nothing Then
Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
Dim cnt As Integer
For Each cr As DataRow In crs
If cr("审核") = True
cnt = cnt + 1
End If
Next
pr("审核") = (crs.Count = cnt)
End If
End If
订单表和订单明细表关联,当订单表中的未付列为0时,勾选审核列同时勾选订单明细表中的审核列,想根据上面代码修改,不知可以吗?

--  作者:Bin
--  发布时间:2013/4/25 16:19:00
--  
你已经把你修改好的代码发出来
--  作者:wqb1102
--  发布时间:2013/4/25 16:27:00
--  
上面代码是当订单明细表全审核后,勾选订单表的审核列的
--  作者:Bin
--  发布时间:2013/4/25 16:29:00
--  
刚说错了.我的意思是你应该把你修改好的代码发出来!
--  作者:wqb1102
--  发布时间:2013/4/25 16:48:00
--  
我就是不知如何修改了
--  作者:Bin
--  发布时间:2013/4/25 16:50:00
--  
把例子发出来吧