主题：语法解法

无法直接使用dt作为sql语句。

Dim sql ="select * fr om dt where 名称 in (select 名称 fr om dt group by 名称 having count(编码)=1)"

红色dt要改成原来的一整段sql语句才行。不然，你在你db2那里做一个视图，这样可以方便使用表。

Dim sql_2 ="select * from (" & sql_1 & ") where 名称 in (select 名称 from (" & sql_1 & ") group by 名称 having count(编码)=1)"

那试试

Dim sql_2 ="select * from (" & sql_1 & ") as abcd where 名称 in (select 名称 from (" & sql_1 & ") as efg group by 名称 having count(编码)=1)"

1、output.show(sql_2) 弹出生成的字符是什么。

2、把生成的字符串，在【sql测试窗口】或者你db2那里测试，看报什么错。

3、在你db2调试那里，删减sql语句，定位出错位置。

改成

肯定可以。任何sql语句（只要正确），都可以生成对应的表的。

参考

http://www.foxtable.com/webhelp/scr/2923.htm

直接设置也行

http://www.foxtable.com/webhelp/scr/0901.htm

http://www.foxtable.com/webhelp/scr/2923.htm

如代码

For Each nd As WinForm.TreeNode In treev.AllNodes
    nd.SelectedIc
Next