Foxtable(狐表)用户栏目专家坐堂 → 代码错误


  共有2098人关注过本帖树形打印复制链接

主题:代码错误

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
代码错误  发帖心情 Post By: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.

请问需要怎么修改?请指教,谢谢!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部