Dim f As New Fillerf.SourceTable = DataTables("公诉表") '指定数据来源f.SourceCols = "部门受案号" '指定数据来源列f.DataTable = DataTables("案件基本信息") '指定数据接收表f.DataCols = "部门受案号" '指定数据接收列f.ExcludeExistValue = Truef.Append = Falsef.Fill() '填充数据