我想在数据填充后删除空白行,可当来源表再改后,数据重新填充时报错。代友如下
Dim f As New Filler
f.SourceTable = DataTables("分部装备") '指定数据来源f.SourceCols = "_identify,出厂编号,规格型号,装备名称" '指定数据来源列,ePMS单价,检验周期,检验时间f.DataTable = DataTables("装备管理") '指定数据接收表f.DataCols = "序号,出厂编号,规格型号,装备名称" '指定数据接收列,ePMS单价,检验周期,检验时间f.Append = False
f.Fill() '填充数据
DataTables("装备管理").DeleteFor( " 序号 Is Null ") '删除空白行