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

 

Dim nms() As String = Tables("补偿标准表").Current("补偿标准代码")

Dim s() As String = Tables("土地类").Current("补偿标准代码")

Dim v() As String = Tables("房屋类").Current("补偿标准代码")

 For Each nm As String In nms

 

 

然后用nm去遍历数组S和V，当s和v当中任意一个数组有nm时，补偿标准表中“补偿标准使用情况”逻辑字段勾选

这种如何实现？

 

都用了三年了，为啥总是要别别人全部写好呢？

 

这是代码：

 

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
                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
                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("补偿标准代码") 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

这样改不行呀

For Each dr1 As DataRow In DataTables("补偿标准表").dataRows
    Dim nms() As String = {"土地类","房屋类"}
    dr1("补偿标准使用情况")  = False
    For Each nm As String In nms
        For Each dr2 As DataRow In DataTables(nm).DataRows
             If dr1("补偿标准代码") = dr2("补偿标准代码")
                dr1("补偿标准使用情况")  = True
                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 = {"土地类","房屋类"}
    dr1("项目代码使用情况")  = False
    For Each nm As String In nms
        For Each dr2 As DataRow In DataTables(nm).DataRows
             If dr1("项目代码") = dr2("项目代码")
                dr1("项目代码使用情况")  = True
                Exit For
            End If
        Next
        If dr1("项目代码使用情况")  = True Then
            Exit For
        End If
    Next

Next