我想在数据填充后删除空白行,可当来源表再改后,数据重新填充时报错。代友如下
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 ") '删除空白行
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1.png