主题：加载数据

 如果不存在dd6，还加载数据不？

从效率来说，就先加载，再比较吧。

 dim str_bianhao as string = ""
 dim ary_bianhao(datatables("A").datarows - 1) as string
 
 dim i as integer = 0
 for each dr as datarow in datatables("A").datarows
     str_bianhao = str_bianhao & "'" & dr("编号") & "',"
     ary_bianhao(i) = dr("编号")
 next

 datatables("B").loadfilter = "编号 in (" & str_bianhao.trim(",") & ")"
 datatables("B").load

 for each bianhao as string in ary_bianhao
     if datatables("B").find("编号 = '" & bianhao & "'" ) is nothing then
         msgbox(bianhao & "不存在")
     end if
 next