dim drs as list(of datarow ) = DataTables("表A").AppendLoad(Filter, False)dim str as string
for each dr as datarow in drs
str = str & ",'" & dr("编号") & "'"
next
if str > "" then
str = str.trim(",")
dim f2 as string = "编号 in (" & str & ")"
DataTables("订单明细").removefor(f2)
DataTables("订单明细").AppendLoad(f2)
end if