主题：代码更改

SQLFind 改成 find 不就行了？你现在执行代码有什么问题？

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

 

2、做个例子说明你要做什么。

测试你的例子，没有任何问题，输入编号以后，可以得到对应的数据。

 

窗口表的事件datacolchanged事件你写的是find，而不是sqlfind。我使用sqlfind测试没问题。

保存代码这样写

 

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")