- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- TreeView出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98961)
-- 发布时间：2017/4/10 14:25:00
-- TreeView出错
此主题相关图片如下：无标题.png
错误代码：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.3.18.1
错误所在事件：窗口,项目收款帐户选择,TreeView1,NodeMouseDoubleClick
详细错误信息：
未将对象引用设置到对象的实例。
nodemousedoubleclick代码：
If e.Node.Level = 0 Then \'如果是顶层节点
Return \'则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\\")
Dim Filter As String = "[帐户名] = \'" & Vals(0) & "\' And [开户行] = \'" & Vals(1) & "\'"
Dim dr As DataRow = DataTables("银行资料").Find(Filter)
Dim r As Row = Tables("项目收款登记").Current
r("帐户名") = dr("帐户名")
r("帐号") = dr("帐号")
r("开户行") = dr("开户行")
e.Form.Close()
-- 发布时间：2017/4/10 15:25:00
--
If e.Node.Level = 0 Then \'如果是顶层节点
Return \'则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\\")
Dim Filter As String = "[帐户名] = \'" & Vals(0) & "\' And [开户行] = \'" & Vals(1) & "\'"
Dim dr As DataRow = DataTables("银行资料").Find(Filter)
Dim r As Row = Tables("项目收款登记").Current
If dr Is Nothing OrElse r Is Nothing
msgbox("没有查询到合适的数据!")
Return
End If
r("帐户名") = dr("帐户名")
r("帐号") = dr("帐号")
r("开户行") = dr("开户行")
e.Form.Close()
-- 发布时间：2017/4/10 16:04:00
--
还是一样的错误
-- 发布时间：2017/4/10 16:07:00
--
2楼的代码不应该有问题。
弹出【没有查询到合适的数据】了吗？
-- 发布时间：2017/4/10 16:33:00
--
软件问题，重新启动就好了，谢谢了有点色