主题：指定保存不覆盖之前的保存并中间不留空白

执行这个代码报什么错？

Dim h As New Filler
h.SourceTable = DataTables("生产计划下达_BOM分配") '指定数据来源
h.DataTable = DataTables("原材料需求明细") '指定数据接收表
h.ExcludeExistValue = True
h.Fill()

CheckedChanged 事件，删除之前的代码，改成

Dim t1 As Table = e.Form.Controls("BOM分配").Table
Dim sql As String = "Select * from {BOM基础数据} where 成品编码 = '" & e.Form.Controls("成品编码1").text & "'"
t1.fill(sql, True)