- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 代码在不同版本执行不一样 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49805)
-- 发布时间：2014/4/24 12:15:00
-- [求助] 代码在不同版本执行不一样
根据之前狐狸爸爸提供的帮助，将其中的一段代码植入到项目中，但出现错误
代码如下：
装货计划_DataColChanged
Case "合同号","产品名"
Dim pr As DataRow =
e.DataRow.GetParentRow("产品名")
If pr IsNot Nothing Then
e.DataRow("批次号") =
pr.GetChildRows("装货计划").Count +1
End If
End Select
这段代码在试用版2014运行正常，即批次号每增加一行就会递增一个序列，但在开发版2013却出现错误提示，如下：
此主题相关图片如下：错误提示.jpg
是否版本差异引起？
-- 发布时间：2014/4/24 14:14:00
--
代码问题，改一下
Select Case e.DataCol.name
Case "合同号","产品名"
Dim pr As DataRow = e.DataRow.GetParentRow("产品名")
If pr IsNot Nothing Then
Dim prChild As DataRow = pr.GetChildRows("装货计划")
If prChild IsNot Nothing Then
e.DataRow("批次号") = prChild.Count +1
End If
End If
End Select