主题：表加载问题

 呃，楼主，把代码弄成这样吧

DataTables("装备管理").DataRows.Clear

Dim f As New Filler

f.SourceTable = DataTables("分部装备")

f.SourceCols = "装备名称,ePMS单价,检验周期,检验时间" '指定数据来源列

f.DataTable = DataTables("装备管理")

f.DataCols = "装备名称,ePMS单价,检验周期,检验时间" '指定数据接收列

f.Filter = "装备名称 is not null"

f.Fill() '填充数据