主题：[求助]删除空白行的问题

我想在数据填充后删除空白行，可当来源表再改后，数据重新填充时报错。代友如下

 

 

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 ") '删除空白行

 

 

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

 因为这句 f.Append = False

 如果要用这句的话，就保存，然后压缩项目，再执行代码。

谢谢！

压缩项目咋弄啊?

此主题相关图片如下：qq截图20121102130657.png

哇 手工操作啊 能代码自动解决吗？谢谢了。

我按你的说法增加了一行 “DataTables("装备管理").Save()”搞定了，非常感谢。