Dim h As New Fillerh.SourceTable = DataTables("通讯录") '指定数据来源h.SourceCols = "客户id,客户供应商" '指定数据来源列h.DataTable = DataTables("客户供应商数据汇总") '指定数据接收表h.DataCols = "客户id,客户" '指定数据接收列h.ExcludeExistValue = Trueh.Fill() '填充数据
老师,我要只接收通讯录表群组分类列销售和供应对应的客户供应商列值