老师，我用以下代码引用的数据，没有值的显示为“0”了，如图1、我想在引用的时候，如果有值则显示对应的值，没有值就直接显示为空白，请帮忙看看，谢谢！
此主题相关图片如下：1.jpg
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("协议签订")
Next
Tables("刀具BOM清单_数据维护1").Sort = "成品编码 DESC"
With Tables("刀具BOM清单_数据维护1")
.Select(.RowSel, .Cols("成品编码").Index)
End With
e.form.Close
加好友 
发短信
Post By：2023/2/16 14:55:00 [显示全部帖子]
