DataTables("obas_part1").DataRows.Count > 0 Then Dim ids As String For Each dr As DataRow In DataTables("obas_part1").DataRows ids = ids & ",'" & dr("part_no") & "'" Next ids = ids.Trim(",") Dim s As String = "{obas_part1}.[part_no] In (" & ids & ")" DataTables("半成品查询表").LoadFilter = s DataTables("半成品查询表").Load()End If
没搞懂你的命名方式,
完整的SQL语句应该是这样的,
select * from 半成品查询表 where part_no in (select part_no from obas_part1 where *) ‘如果你还有条件就加上去,没有就把WHERe去掉
数据表加载方式,
DataTables("半成品查询表").LoadFilter = "part_no in (select part_no from obas_part1 where *)"
DataTables("半成品查询表").Load()
加大括号什么的你看情况,外部表可以省略
[此贴子已经被作者于2014-4-11 10:42:45编辑过]