主题：加载数据

现有表A与表B 两个表 ，表A  表B  都有 编号列

如果表A的编号列里有6行数据分别为 dd1   dd2   dd3   dd6   dd7   dd8  ，我想点击按钮表B也同样加载编号为 dd1  dd2  dd3  dd6  dd7  dd8  的行。

如果表B的数据源不存在dd6 ，那么提示表B不存在dd6

 

求助，表B如何加载数据。

 

谢谢！

 

用填充的方式

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

谢谢！

提示不存在DD6,加载其他数据

谢谢！

是从表B的外部数据源，加载到表B   ,我认为是不能用填充

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

 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

问题已解决

非常感谢！