- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据引用错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69033)
-- 发布时间：2015/5/29 10:58:00
-- 数据引用错误
数据引用错误
此主题相关图片如下：qq截图20150529105656.png
-- 发布时间：2015/5/29 10:58:00
--
子表，只能统计，不能引用。
-- 发布时间：2015/5/29 11:07:00
--
改用代码
If e.DataCol.Name = "制造编号" AndAlso e.NewValue <> Nothing Then
Dim fdr As DataRow = DataTables("生产部").Find("制造编号 = \'" & e.NewValue & "\'")
If fdr Is Nothing Then
fdr = DataTables("生产部").AddNew
fdr("制造编号") = e.DataRow("制造编号")
fdr("订单编号") = e.DataRow("订单编号") 这句不会生效 是哪里错误了
End If
End If
[此贴子已经被作者于2015/5/29 11:07:15编辑过]
-- 发布时间：2015/5/29 11:09:00
-- 回复：（yifan3429）改用代码If e.DataCol.Name = "制...
确定有“订单编号”？将表字段截图出来看看
-- 发布时间：2015/5/29 11:10:00
--
If e.DataCol.Name = "制造编号" OrElse e.DataCol.Name = "订单编号" Then
Dim fdr As DataRow = DataTables("生产部").Find("制造编号 = \'" & e.NewValue & "\'")
If fdr Is Nothing Then
fdr = DataTables("生产部").AddNew
fdr("制造编号") = e.DataRow("制造编号")
End If
fdr("订单编号") = e.DataRow("订单编号")
End If
-- 发布时间：2015/5/29 11:12:00
--
图
此主题相关图片如下：qq截图20150529111014.png
此主题相关图片如下：qq[upload=png,qq截图20150529111109.png
[此贴子已经被作者于2015/5/29 11:12:19编辑过]
-- 发布时间：2015/5/29 11:26:00
--
If e.DataCol.Name = "制造编号" OrElse e.DataCol.Name = "订单编号" Then
Dim fdr As DataRow = DataTables("生产部").Find("制造编号 = \'" & e.DataRow("制造编号") & "\'")
If fdr Is Nothing Then
fdr = DataTables("生产部").AddNew
fdr("制造编号") = e.DataRow("制造编号")
End If
fdr("订单编号") = e.DataRow("订单编号")
End If