主题：请教：2个相同的代码，1个正确执行，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

没有效果说明什么? 肯定是没执行代码,为什么没执行代码? 肯定是IF条件不成立? 为什么IF条件不成立?  说明 R 和 DR2 为空.为什么为空?   自己搞定

messagebox.show(r is nothing)

messagebox.show(dr2 is nothing)