主题：目录树共用

专家您好！

   我是初学者，现试着写一个小软件，但又遇到三个问题请教。

    1、我现在按帮助建立一个原料目录树窗口，我想在原料出库(ylckb)，入库(ylrkb),原料期初表（ylqcb）的录入窗口中共用这个窗口，我的nodemouseclick代码如下：

  

If e.Node.Level = 4 Then 

 Dim tr As Row = Tables("ylqcb").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

 

 我想用通用的代码，替代“ylqcb”,我还要用在“ylrkb”。

 2、我的【afteropenproject】事件：

  Tables("ylqcb").Cols("供应商").DropForm = "原料目录树"

  也想用通用代码，便于编辑原料入库表  ( ylrkb）

 不知道怎么写通用的代码了。

3、我的主界面窗口任务页面用的是目录树，我在下级窗口中怎么写代码判断主界面的窗口的点击节点的内容，然后在再调用相应的操作窗口。

 

参考：http://www.foxtable.com/webhelp/topics/2704.htm