- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]复制 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62428)
-- 发布时间：2014/12/31 15:51:00
-- [求助]复制
此主题相关图片如下：图像 2.png
老师，论坛网站在我这边老是出现这个问题
-- 发布时间：2014/12/31 16:05:00
--
做个简单的例子上传上来
-- 发布时间：2014/12/31 16:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复制.table |
Dim l As New Filler
l.SourceTable = DataTables("通讯录") \'指定数据来源
l.SourceCols = "客户id,客户供应商" \'指定数据来源列
l.DataTable = DataTables("供应商往来动态") \'指定数据接收表
l.DataCols = "客户id,客户" \'指定数据接收列
l.Filter = "群组分类 = \'供应商\'" 老师在这里再增加一个"客户名称"的值
l.ExcludeExistValue = True
l.Fill() \'填充数据
-- 发布时间：2014/12/31 16:44:00
--
Dim l As New Filler
l.SourceTable = DataTables("通讯录") \'指定数据来源
l.SourceCols = "客户id,客户供应商" \'指定数据来源列
l.DataTable = DataTables("供应商往来动态") \'指定数据接收表
l.DataCols = "客户id,客户" \'指定数据接收列
l.Filter = "群组分类 = \'供应商\' or 群组分类 = \'客户\'"
l.ExcludeExistValue = True
l.Fill() \'填充数据