请教：2个相同的代码，1个正确执行，1个出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

目录树1 双击：正确

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

Dim dr As DataRow = e.Node.DataRow

r("定额编号") = dr("项目编码")

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

目录树2 单击：出现错误

If e.Node.Level = 2 Then

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

Dim dr2 As DataRow = e.Node.DataRow

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

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

End If

此主题相关图片如下：2015-03-21_090013.png

[此贴子已经被作者于2015/3/21 10:36:08编辑过]

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