以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树的运用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148130)
--  作者：朱女士
--  发布时间：2020/3/31 16:58:00
--  目录树的运用

专家：

   我上午将您给的代码写入【nodemouseclick】事件后

 

If e.Node.Level = 4 Then

Dim tr As Row =e.form.DropTable.Current

Dim dr As DataRow = e.Node.DataRow


    tr("供应商") = dr("供应商")
    tr("ylmc") = dr("ylmc")
     tr("yldm") = dr("yldm")
      tr("gfdm") = dr("gfdm")

     tr("含税价") = dr("含税价")

       e.Form.DropDownBox.Value = tr("供应商") 
      e.Form.DropDownBox.CloseDropdown()
End If

 

 

出现了以下信息：

 

NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.3.29.8
错误所在事件：窗口,原料目录树,TreeView1,NodeMouseClick
详细错误信息：
未将对象引用设置到对象的实例。

 

 不知所措了，试了几个代码都无效，还需要您指教！

 
--  作者：有点蓝
--  发布时间：2020/3/31 17:20:00
--  
做个例子发上来看看
--  作者：朱女士
--  发布时间：2020/3/31 17:43:00
--  目录树的运用再提问
我就是想在窗口中录入原料入库和出库数据时共用一个目录树窗口。想写在【nodemouseclick】事件中，写通用代码。其实在原料入库窗口中用这个目录树时，已经通过了，但必须写Dim tr As Row = Tables("ylqcb").Current，上具体的“ylqcb”名，我想既然通用，就应该有通用代码。我试了一下e.table.name，表示是当前选定的表，出错了。学得不好，添麻烦了！
--  作者：有点蓝
--  发布时间：2020/3/31 20:29:00
--  
如果不是下拉窗口，改为

Dim tr As Row =currenttable.Current