Dim Vals As List(of String())
Vals = DataTables("通讯录").GetValues("客户ID|客户供应商|群组分类")
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("客户供应商数据汇总").Find("客户ID='" & Vals(i)(0) & "' And 客户供应商='" & Vals(i)(1) & "' And 群组分类='" & Vals(i)(2) & "' ")
If dr Is Nothing Then
dr = DataTables("客户供应商数据汇总").AddNew()
dr("客户ID") = Vals(i)(0)
dr("客户供应商") = Vals(i)(1)
dr("群组分类") = Vals(i)(2)
End If
Next
老师,我想在复制时加一个条件,如果来源表"通讯录"列"群组分类"是供应商,客户这两个字段时该行的三个字段就复制到对应的接收表中.
加好友 
发短信
Post By：2019/1/11 17:35:00 [只看该作者]
