老师好，关联表出错，麻烦看一下错误在哪里,谢谢！
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
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
加好友 
发短信
Post By：2021/3/8 18:44:00 [只看该作者]
