以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  引用无值显示为空白  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185320)

--  作者:nuoyan89
--  发布时间:2023/2/16 14:55:00
--  引用无值显示为空白
老师,我用以下代码引用的数据,没有值的显示为“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

--  作者:有点蓝
--  发布时间:2023/2/16 15:04:00
--  
判断一下,比如

r2("直径") = IIF(r.isnull("直径"),nothing,r("直径"))