主题：[求助]根据子科目启用状态决定父科目是否启用

有以下“会计科目”表

此主题相关图片如下：微信截图_20190818115557.png

现在计划：

如果：101.01或者101.02等科目任一启用，101自动启用

         101.01等科目无一启用，101同样不启用，

自己设计的代码如下

（放在“会计科目”表DataColChanged中）：

就是不执行：

If e.DataCol.Name = "启用"
    Dim kmbh As String = Left(e.DataRow("科目代码") ,3)
    Dim R1 As DataRow
    R1 = DataTables("会计科目").SQLFind("科目代码 = '" & kmbh & "'")
    If R1 IsNot Nothing Then
        If e.DataRow("启用") = True Then
            R1("启用") = True
        Else
            R1("启用") = False
        End If
    End If
End If

麻烦老师帮一下，谢谢额！

蓝老师，谢谢！

不过只是将SQL去掉，不是十分完美，经过自己摸索，修改为一下代码，完美执行：

If e.DataCol.Name = "启用"
    Dim kmID As String = Left(e.DataRow("科目代码") ,3)
    Dim kmID1 As String = Left(e.DataRow("科目代码") ,4)
    Dim bwjh As DataRow
    bwjh = DataTables("会计科目").Find("启用 = 1  And ([科目代码] Like '%" & kmID1 & "%')")
    Dim R1 As DataRow
    R1 = DataTables("会计科目").Find("科目代码 = '" & kmID & "'")
    If R1 IsNot Nothing Then
        If bwjh IsNot Nothing Then
            R1("启用") = True
        Else
            R1("启用") = False
        End If
    Else
    End If
End If