主题：引用问题（急）

其实很简单，找出算出打勾的行数是否等于总行数而已，设置表A的DataColChanged事件：

if e.DataCol.Name = "主" Then

       if  e.NewValue = True Then

             Dim cnt1 as Integer = Datatables("表A").Compute("Count([_Identify])", "计划号 = '" & e.DataRow("计划号") & "'") '总行数

             Dim cnt2 as Integer = Datatables("表A").Compute("Count([_Identify])", "计划号 = '" & e.DataRow("计划号") & "' And 主 = True") '打勾的行数

             dim dr As Datarow = Datatables("表B").Find(, "计划号 = '" & e.DataRow("计划号") & "'"))

             if dr isnot nothing

                dr("完成情况") = (cnt1= cnt2)

             end if

      end if 

end if

 

大概如此，自行调整。

手误，后面多了个)号。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:引用问题.table

 

注意表达式列是不会触发DataColChanged事件的。

参考：

 

http://www.foxtable.com/help/topics/1284.htm

 

你的要求是：表A中相同材质和相同计划号的行，全部打勾，表B中相同材质和相同计划号的行才打勾。

对否？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:引用问题.table