主题：请教：2个相同的代码，1个正确执行，1个出错

这是1楼的文件

第2个错误 代码 多了一些，我删除没有关联的部分，修改后再另请教

谢谢！

例子是自己解决不了的部分，其他无关的内容没有放，这样解决问题的人看着更清晰

我是内蒙古的，现在做的是09定额 13清单

老兄是什么地区的？

列改变后  代码修改后，错误不再出现。

1楼的问题找到原因了吗？

If e.Node.Level = 2 Then

    Dim r As Row = Tables("实体预算书").Current

    Dim dr2 As DataRow = e.Node.DataRow

    if r isnot nothing andalso dr2 isnot nothing then

    r("定额编号") = dr2("定额编号")

    MainTable.Select(Tables("实体预算书").Position + 1 ,1)

    end if

End If