专家坐堂-引用无值显示为空白Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim t As Table = Forms("刀具BOM清单").Controls("数据维护1").Table

For Each r As Row In Tables("BOM清单借用_刀具清单").GetCheckedRows

Dim r2 As Row = t.AddNew

r2("创建人员") = _UserName

r2("创建日期") = Date.Today

r2("使用状态") = "使用中"

r2("寿命提供人") = _UserName

r2("寿命提供日期") = Date.Today

r2("年") = Format(Date.Today, "yyyy")

r2("月") = Format(Date.Today, "yyyyMM")

r2("日") = Format(Date.Today, "yyyyMMdd")

r2("成品编码") = r("成品编码")

r2("成品描述") = r("成品描述")

r2("材料编码") = r("材料编码")

r2("材料描述") = r("材料描述")

r2("用量") = r("用量")

r2("备注") = r("备注")

r2("毛坯产地") = r("毛坯产地")

r2("库位") = r("库位")

r2("线别") = r("线别")

r2("规格型号") = r("规格型号")

r2("材料类型") = r("材料类型")

r2("加工工序") = r("加工工序")

r2("加工内容") = r("加工内容")

r2("刀柄型号") = r("刀柄型号")

r2("刀具类型") = r("刀具类型")

r2("刀具代码") = r("刀具代码")

r2("配刀类型") = r("配刀类型")

r2("样件编码") = r("样件编码")

r2("层级关系") = r("层级关系")

r2("使用频次") = r("使用频次")

r2("每片刃数") = r("每片刃数")

r2("每刃寿命") = r("每刃寿命")

r2("总寿命") = r("总寿命")

r2("单件加工长度") = r("单件加工长度")

r2("单片加工米数") = r("单片加工米数")

r2("可修磨次数") = r("可修磨次数")

r2("上传类型") = r("上传类型")

r2("次级编码") = r("次级编码")

r2("开发项目编码") = r("开发项目编码")

r2("文件管理") = r("文件管理")

r2("钻头标准刃长") = r("钻头标准刃长")

r2("标准柄长") = r("标准柄长")

r2("最低要求钻深") = r("最低要求钻深")

r2("转速S") = r("转速S")

r2("直径") = r("直径")

r2("齿数") = r("齿数")

r2("线速度Vc") = r("线速度Vc")

r2("每齿进给Fx") = r("每齿进给Fx")

r2("进给速度Vf") = r("进给速度Vf")

r2("切深ap") = r("切深ap")

r2("加工长度L") = r("加工长度L")

r2("加工次数") = r("加工次数")

r2("加工件数") = r("加工件数")

r2("切削时间") = r("切削时间")

r2("其它时间") = r("其它时间")

r2("合计时间") = r("合计时间")

r2("替代") = r("替代")

r2("刀具成本") = r("刀具成本")

r2("刀具装配图") = r("刀具装配图")

r2("新刀寿命") = r("新刀寿命")

r2("修磨寿命") = r("修磨寿命")

r2("换刀时间") = r("换刀时间")

r2("快速移动时间") = r("快速移动时间")

r2("加工内容与要求") = r("加工内容与要求")

r2("使用产品") = r("使用产品")

r2("工作台旋转") = r("工作台旋转")

r2("生产型号") = r("生产型号")

r2("协议签订") = r("协议签订")

Tables("刀具BOM清单_数据维护1").Sort = "成品编码 DESC"

With Tables("刀具BOM清单_数据维护1")

.Select(.RowSel, .Cols("成品编码").Index)

End With

e.form.Close