主题：[求助]逻辑型

如何实现：表A有个逻辑型表达式，如果为真，则对表B第一列数值+1，如果为假，不变。

对表B的那些行生效呢?

 

如果要定位的话就一定要在表A和表B之间建立关联,才能定位到表B的相关行

 

下面这个是表A是父表,表B是子表的例子

 

写在表A的事件中datacolchanged中

if e.datacol.name = "逻辑列名" then

   dim drs as list (of datarow) = e.datarow.getchildrows("表B")

   if drs.count > 0  and e.newvalue = true then

      for each dr as datarow in drs

           dr("第一列")=dr("第一列")+1

      next

   endif

endif

谢谢先！但有个小问题！选择一次，则+1；取消后，再选择又+1了。我希望是选择时+1，没选择时不变。

If e.DataCol.name = "逻辑列名" Then
    Dim drs As List (of DataRow) = e.DataRow.getchildrows("表B")
    If drs.count > 0 Then
        For Each dr As DataRow In drs
            If e.newvalue = True Then
                dr("第一列")=dr("第一列")+1
            Else
                dr("第一列")=dr("第一列") - 1
            End If
        Next
    End If
End If