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

　　[项目]表→[项目代码]002行→勾选了,

      为何[补偿标准表]→[项目代码]002行→没勾选([房屋类]表[项目代码]有002)?

哦,原来看漏眼了:[00201]<>[002001]

Dim Ls1 As String() = {"项目","补偿标准表"}

Dim Ls2 As String() = {"项目代码","补偿标准代码"}

Dim Ls3 As String() = {"项目代码使用情况","补偿标准使用情况"}

Dim cmd As New SQLCommand

cmd.CommandText = "select 项目代码,补偿标准代码  from {土地类} union select 项目代码,补偿标准代码  from {房屋类}"

For n  As Integer = 0 To Ls1.Length-1

    For Each dr As DataRow In DataTables(Ls1(n)).dataRows                     

       dr(Ls3(n)) = cmd.ExecuteReader.GetUniqueValues("",Ls2(n)).Contains(dr(Ls2(n)))       

    Next

Next