以文本方式查看主题

-  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=111086)
--  作者：有点甜
--  发布时间：2017/12/14 23:54:00
--  

SQLFind 改成 find 不就行了？你现在执行代码有什么问题？
--  作者：有点甜
--  发布时间：2017/12/15 9:53:00
--  

1、加入msgbox看代码是否触发了

 

2、做个例子说明你要做什么。
--  作者：有点甜
--  发布时间：2017/12/15 10:32:00
--  
测试你的例子，没有任何问题，输入编号以后，可以得到对应的数据。
--  作者：有点甜
--  发布时间：2017/12/15 11:14:00
--  
以下是引用nuoyan88在2017/12/15 10:55:00的发言：

能请老师用工序记录表这个窗口操作测试下吗？谢谢！

 

窗口表的事件datacolchanged事件你写的是find，而不是sqlfind。我使用sqlfind测试没问题。
--  作者：有点甜
--  发布时间：2017/12/15 12:00:00
--  

保存代码这样写

 

Dim f As New Filler
f.SourceTable = DataTables("工序记录表_工序跟踪表") \'指定数据来源
f.SourceCols = "毛坯编码,使用设备,加工工序,姓名,开始日期,班次,合格品,不合格品,返修,备注,生产批次" \'指定数据来源列
f.DataTable = DataTables("工序跟踪表") \'指定数据接收表
f.ExcludeExistValue = True
f.DataCols = "毛坯编码,使用设备,加工工序,姓名,开始日期,班次,合格品,不合格品,返修,备注,生产批次" \'指定数据接收列
f.Fill()
DataTables("工序记录表_工序跟踪表").DataRows.Clear

 

For Each dt As DataTable In DataTables
    dt.Save()
Next


DataTables("工序记录表_工序跟踪表").addnew
DataTables("工序跟踪表").DeleteFor("毛坯编码 is null or 加工工序 is null")

[此贴子已经被作者于2017/12/15 12:00:49编辑过]