- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关联出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161164)
-- 发布时间：2021/3/8 18:44:00
-- 关联出错
老师好，关联表出错，麻烦看一下错误在哪里,谢谢！
If e.DataCol.Name = "订单情况_订单编号" Then
If e.NewValue Is Nothing Then
e.DataRow("订单情况_物料编号") = Nothing
e.DataRow("订单情况_客户代号") = Nothing
e.DataRow("订单情况_订单类别") = Nothing
e.DataRow("订单情况_件号") = Nothing
e.DataRow("订单情况_毛坯图号") = Nothing
e.DataRow("订单情况_材质码") = Nothing
e.DataRow("订单情况_订单数") = Nothing
e.DataRow("订单情况_客户订单编号") = Nothing
e.DataRow("订单情况_接单日期") = Nothing
e.DataRow("订单情况_毛坯版本号") = Nothing
e.DataRow("订单情况_订单版本") = Nothing
e.DataRow("订单情况_客户名称") = Nothing
e.DataRow("订单情况_销售类别") = Nothing
此主题相关图片如下：错误.jpg
此主题相关图片如下：错误.jpg e.DataRow("订单情况_产品名称") = Nothing
e.DataRow("订单情况_材质") = Nothing
e.DataRow("订单情况_坯重") = Nothing
Else
Dim dr As DataRow
dr = DataTables("铸造生产月计划表").Find("[订单情况_订单编号] = \'" & e.NewValue & "\'")
If dr IsNot Nothing
e.DataRow("订单情况_物料编号") = dr("订单情况_物料编号")
e.DataRow("订单情况_客户代号") = dr("订单情况_客户代号")
e.DataRow("订单情况_订单类别") = dr("订单情况_订单类别")
e.DataRow("订单情况_件号") = dr("订单情况_件号")
e.DataRow("订单情况_毛坯图号") = dr("订单情况_毛坯图号")
e.DataRow("订单情况_材质码") = dr("订单情况_材质码")
e.DataRow("订单情况_订单数") = dr("订单情况_订单数")
e.DataRow("订单情况_客户订单编号") = dr("订单情况_客户订单编号")
e.DataRow("订单情况_接单日期") = dr("订单情况_接单日期")
e.DataRow("订单情况_毛坯版本号") =dr("订单情况_毛坯版本号")
e.DataRow("订单情况_订单版本") = dr("订单情况_订单版本")
e.DataRow("订单情况_客户名称") = dr("订单情况_客户名称")
e.DataRow("订单情况_销售类别") = dr("订单情况_销售类别")
e.DataRow("订单情况_产品名称") = dr("订单情况_产品名称")
e.DataRow("订单情况_材质") = dr("订单情况_材质")
e.DataRow("订单情况_坯重") = dr("订单情况_坯重")
End If
End If
End If
-- 发布时间：2021/3/8 20:20:00
--
"订单情况_材质"是表达式列，不能使用代码赋值。可以转换为数据列
-- 发布时间：2021/3/9 8:20:00
--
好的，谢谢老师！