以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130049)
--  作者：江南小镇
--  发布时间：2019/1/11 17:35:00
--  [求助]复制
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

老师,我想在复制时加一个条件,如果来源表"通讯录"列"群组分类"是供应商,客户这两个字段时该行的三个字段就复制到对应的接收表中.
--  作者：有点甜
--  发布时间：2019/1/11 17:50:00
--  

这个意思？

 

Vals = DataTables("通讯录").GetValues("客户ID|客户供应商|群组分类", "群组分类=\'供应商\' or 群组分类=\'客户\'")
--  作者：江南小镇
--  发布时间：2019/1/11 18:58:00
--  
谢谢老师！