以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108347)
--  作者：nbsugu_z
--  发布时间：2017/10/20 15:06:00
--  未将对象引用设置到对象的实例。
.NET Framework 版本：2.0.50727.8689
Foxtable 版本：2017.8.19.1
错误所在事件：窗口,租房合同管理,TreeView1,NodeMouseClick
详细错误信息：
未将对象引用设置到对象的实例。

代码如下：
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[客户简称] = \'" & dr("客户简称") & "\'"
    End Select
End If
Tables("租房合同").Filter = Filter


以上我看来看去没错啊。另上个窗口同样方法不会出现这个问题。
--  作者：nbsugu_z
--  发布时间：2017/10/20 15:10:00
--  
已经解决
--  作者：nbsugu_z
--  发布时间：2017/10/20 15:11:00
--  
显示所有  修改成“显示所有内容”就解决了，但是还是不知道这个是什么原因
--  作者：有点甜
--  发布时间：2017/10/20 15:12:00
--  

改成

 

Dim Filter As String
Dim ary() as String = e.Node.FullPath.split("\\")
If e.Node.Text <> "显示所有" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[客户简称] = \'" & ary(0) & "\'"
    End Select
End If
Tables("租房合同").Filter = Filter