- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 指定保存不覆盖之前的保存并中间不留空白 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109676)
-- 发布时间：2017/11/16 21:06:00
--
参考代码
http://www.foxtable.com/webhelp/scr/1532.htm
DataTables("生产排产分配表").ReplaceFor("生产批次", e.form.controls("TextBox1").Text, "生产批次 is null")
-- 发布时间：2017/11/16 21:45:00
--
实例发上来测试。说明你最后需要的效果。
-- 发布时间：2017/11/16 22:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.foxdb |
-- 发布时间：2017/11/17 9:26:00
--
回复8楼。表名这样写
http://www.foxtable.com/webhelp/scr/1907.htm
回复9楼。你要加上deletefor的代码
http://www.foxtable.com/webhelp/scr/0394.htm
-- 发布时间：2017/11/17 14:08:00
--
执行这个代码报什么错？
Dim h As New Filler
h.SourceTable = DataTables("生产计划下达_BOM分配") \'指定数据来源
h.DataTable = DataTables("原材料需求明细") \'指定数据接收表
h.ExcludeExistValue = True
h.Fill()
-- 发布时间：2017/11/17 15:11:00
--
具体实例发上来测试。
-- 发布时间：2017/11/17 17:45:00
--
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)
-- 发布时间：2017/11/17 20:23:00
--
15楼代码我测试没有问题
只有2个列名是一样的，所以只能填充2个列的数据。使用了ExcludeExistValue 所以这2列重复的数据也不会填充
-- 发布时间：2017/11/17 21:20:00
--
请上传正常的项目，项目出错无法测试
-- 发布时间：2017/11/19 16:14:00
--
控件绑定【生产计划下达_生产在制】表啊。重新绑定后测试没问题