主题：各位老大再一次请教，谢谢

 

For Each dr1 As DataRow In DataTables("补偿标准表").dataRows

    Dim nms() As String = {"土地类","房屋类"}

    For Each nm As String In nms

        For Each dr2 As DataRow In DataTables(nm).DataRows

             If dr1("补偿标准代码") = dr2("补偿标准代码") then

                dr1("补偿标准使用情况")  = True

else

dr1("补偿标准使用情况")  = False

                Exit For

            End If

        Next

        If dr1("补偿标准使用情况")  = True Then

            Exit For

        End If

    Next

Next

 

For Each dr1 As DataRow In DataTables("项目").dataRows

    Dim nms() As String = {"土地类","房屋类"}

    For Each nm As String In nms

        For Each dr2 As DataRow In DataTables(nm).DataRows

             If dr1("项目代码") = dr2("项目代码")

                dr1("项目代码使用情况")  = True

else

dr1("项目代码使用情况")  = False

                Exit For

            End If

        Next

        If dr1("项目代码使用情况")  = True Then

            Exit For

        End If

    Next

Next

这样改不行呀

就没有想到先清空逻辑列在判断！！！

有时就是转不过弯来

谢谢 老大