主题：请教关于数据填充

试试

Dim g As New Filler
g.SourceTable = DataTables("A表")
g.SourceCols = "所属片区,合同号,项目名称,客户名称"
g.DataTable = DataTables("B表")
g.DataCols = "区域,合同号,项目名称,客户名称"
g.Append = False
g.ExcludeExistValue = true
g.Fill() '填充数据

 那用这种方法

http://www.foxtable.com/webhelp/scr/1533.htm

http://www.foxtable.com/webhelp/scr/0396.htm