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

参考代码

http://www.foxtable.com/webhelp/scr/1532.htm

DataTables("生产排产分配表").ReplaceFor("生产批次", e.form.controls("TextBox1").Text, "生产批次 is null")

回复8楼。表名这样写

http://www.foxtable.com/webhelp/scr/1907.htm

回复9楼。你要加上deletefor的代码

http://www.foxtable.com/webhelp/scr/0394.htm

执行这个代码报什么错？

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)

控件绑定【生产计划下达_生产在制】表啊。重新绑定后测试没问题

看7楼的项目。

http://www.foxtable.com/webhelp/scr/0704.htm