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

自己改写一下我之前给你的代码，放在CurrentTableChanged事件中：

For Each dr As DataRow In DataTables("补偿标准表").dataRows
    Dim nms() As String = {"土地补偿","房屋补偿"}
    For Each nm As String In nms
        For Each c As col  In Tables(nm).cols
            If c.name.StartsWith(dr("补偿物名")) Then
                dr("使用情况")  = True
                Exit For
            End If
        Next
        If dr("使用情况")  = 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("项目代码")
                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

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