1、GetUniqueValues可以设置条件
2、
For Each dr2 As DataRow In DataTables("表A").DataRows
改为：
For Each dr2 As Row In Tables("表A").DataRows
2、这里应该是For Each dr2 As Row In Tables("表A").Rows
还有，筛选以后生成的表隐藏的字段都有的，只是值为空的，能不能不生成这些字段
加好友 
发短信
Post By：2011/12/27 10:33:00 [显示全部帖子]
