主题：[求助] 代码在不同版本执行不一样

表事件

装货计划_DataColChanged

Select Case e.DataCol.name

    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

是否版本差异引起？