以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  以下代码不管在窗口中填写多少行，要么只保存了一行，要么保存不上  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110115)
--  作者：有点甜
--  发布时间：2017/11/27 8:41:00
--  

Dim f As New Filler
f.SourceTable = DataTables("清洗包装记录临时表") \'指定数据来源
f.SourceCols = "线别,投产日期,毛坯编码,成品描述,毛坯产地,生产批次,批次序号,成品编码,成品流水号,刻号日期,备注" \'指定数据来源列
f.DataTable = DataTables("清洗包装记录") \'指定数据接收表
f.DataCols = "线别,投产日期,毛坯编码,成品描述,毛坯产地,生产批次,批次序号,成品编码,成品流水号,刻号日期,备注" \'指定数据接收列
f.Fill()


DataTables("清洗包装记录临时表").DataRows.Clear
DataTables("清洗包装记录临时表").addnew