以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161659)
--  作者：rgbjwjb
--  发布时间：2021/3/25 15:52:00
--  代码错误

我用下面的代码实现新增功能：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    Dim pth() As String = nd.FullPath.Split("\\")
    Select Case nd.Level
        Case 2
            Tables("工程主表.支付明细表").AddNew
            Tables("工程主表.支付明细表").Current("工程类别") = pth(1)
            Tables("工程主表.支付明细表").Current("工程编号") = pth(2)
    End Select
End If

运行后出现如下提示：

Object reference not set to an instance of an object.

请问需要怎么修改？请指教，谢谢！
--  作者：有点蓝
--  发布时间：2021/3/25 16:07:00
--  
    Select Case nd.Level
        Case 2
            dim r as row = Tables("工程主表.支付明细表").AddNew
            r("工程类别") = pth(1)
            r("工程编号") = pth(2)
    End Select