以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  保存代码出现错误提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145923)

--  作者：rgbjwjb --  发布时间：2020/2/11 21:11:00 --  保存代码出现错误提示 DataTables("债权人基本情况表").Save() Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1") tv.BuildTree("债权人基本情况表","银行类别|开户银行|债权人") Dim nd As WinForm.TreeNode = tv.SelectedNode Dim bar As WinForm.NavBar = Forms("主界面").Controls("NavBar2") Select Case nd.name        Case "所有银行"         bar.SelectedPage.Butt         Tables("债权人基本情况表").Filter = ""     Case Else         Dim Value()As String         Dim Filter As String         Value = nd.FullPath.Split("\\")         Select Case nd.Level             Case 0                 bar.SelectedPage.Butt & Value(0) & ""                 Filter = "银行类别 = \'" & Value(0) & "\'"             Case 2                 Filter = "银行类别 = \'" & Value(0) & "\'and 开户银行 = \'" & Value(1) & "\'and 债权人 = \'" & Value(2) & "\'"                 bar.SelectedPage.Butt & Value(0) & "》" & Value(1) & ""         End Select         Tables("债权人基本情况表").Filter = Filter          \'For Each nd As WinForm.TreeNode In tv.Nodes             If nD.Level = 0 Then                 ND.Expand             End If                 End Select 运行后出现如下提示：未将对象引用设置到对象的实例.请问怎么修改？谢谢！

--  作者：有点蓝 --  发布时间：2020/2/11 21:27:00 --   Dim nd As WinForm.TreeNode = tv.SelectedNode if nd is nothing then return \'如果目录树没有选中任何节点