跨表填充 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：11.png

把上图的箭头列的列名填入下图的同一列，对应的上图的数据也填入另外一列。

此主题相关图片如下：22.png

请老师帮忙，谢谢。

Dim f As New Filler

f.SourceTable = DataTables("帐单汇总") '指定数据来源

f.SourceCols = "商家名称,月份,开piao日期" '指定数据来源列

f.DataTable = DataTables("往来帐") '指定数据接收表

f.DataCols = "商家名称,摘要,日期" '指定数据接收列

f.ExcludeExistValue = True

f.ExcludeNullValue = True

f.Distinct = True

f.Fill() '填充数据

主题：跨表填充