1、查询表是不能保存数据的2、r.IsGroup的行也不能保存的,也不能被填充到其它表,仅仅是临时显示统计数据
你要保存最后被填充的表
'DataTables("统计").Save(True) '这一句没有意义,查询表不能保存的
Dim f As New Filler
f.SourceTable = DataTables("统计") '指定数据来源
f.DataTable = DataTables("MRP表") '指定数据接收表
f.Fill()
DataTables("MRP表").Save()
[此贴子已经被作者于2017/1/14 9:33:13编辑过]