主题：[求助]逻辑型

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