狐步教程一从两个表的某一列分别获取不重复数据，合并去重后写入某张表
我作为一个初学者现在在开发自己应用的仓库管理软件 这个过程中有很多疑问也有很多收获，总的来说取之于众高手，服务于大众，从现在起，会将我开发过程中用到的实例 以详细教程的方式 发布上来，共同成长
下面这段代码特别感谢 狐狸爸爸 朱版 水木情缘 寒寻以及其他在这个过程中帮助了我的朋友们
感谢曹版 Randboy等人的更正
'定义
Dim Customers As List(Of String)
Dim Customers2 As List(Of String)
Dim drs As List(Of DataRow)
'分别从2张表获取不重复的数据
Customers = DataTables("坯布进仓表").GetUniqueValues("[产品] <> ''", "产品")
Customers2 = DataTables("产品进仓表").GetUniqueValues("[品种] <> ''", "品种")
'将第一组数据中不存在第二组中的数据加入第二组（合并去重）
For Each Customer As String In customers '遍历数组customers 内的每一个数据 customer
If not Customers2.contains(Customer) Then '如果Customer不包含在customer2里面
Customers2.Add(Customer) 'customer加入数组customer2
End If
Next
'开始写入 先判断行数够不够写入第二组数据 不够一次性加够
If DataTables("实验").DataRows.count <Customers2.count Then '判断当前表的行数够不够
DataTables("实验").AddNew(Customers2.count-DataTables("实验").dataRows.count ) '如果不够就一次性加够 行数差额
End If
'将第二组数据写入相应的表相应的列
For i As Integer = 0 To Customers2.Count -1 '从第一行开始输入
DataTables("实验").DataRows(i)("第五列") =Customers2(i) '写入列的对应行与Customers2数组对应项的值
Next
'保存数据
DataTables("实验").save()
[此贴子已经被作者于2012-9-7 13:43:58编辑过]
加好友 
发短信
Post By：2012/9/6 18:30:00 [只看该作者]
