以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]下拉组合框绑定了一个目录树窗口，双击目录树节点后输入的内容都在表的第一行是生么原因？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118928)
--  作者：1669607010
--  发布时间：2018/5/14 15:33:00
--  [求助]下拉组合框绑定了一个目录树窗口，双击目录树节点后输入的内容都在表的第一行是生么原因？
[求助]下拉组合框绑定了一个目录树窗口，双击目录树节点后输入的内容都在表的第一行是生么原因？
目录树双击节点NodeMouseClick的代码是：
If e.Node.Level = 1 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("外购原料出库").Current
    Dim dr As DataRow = DataTables("外购原料库存明细").Find("原料类型 = \'" & ps(0) &  "\'And 原料货号 = \'" & ps(1) & "\' ")
    If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("原料类型") = dr("原料类型") 
        tr("原料货号") = dr("原料货号")
        \'e.Form.DropDownBox.Value = tr("原料货号") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()
End If
哪位老师帮忙看看是哪里出了问题？
--  作者：有点甜
--  发布时间：2018/5/14 15:43:00
--  

试试改成

 

If e.Node.Level = 1 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("控件绑定的表名注意是不是窗口表").Current
    tr("原料类型") = ps(0)
    tr("原料货号") = ps(1)
    e.Form.DropDownBox.Value = ps(1) \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.    
    e.Form.DropDownBox.CloseDropdown()
End If
--  作者：1669607010
--  发布时间：2018/5/14 15:53:00
--  
谢谢甜老师，果然是把窗口表名写成主表名了，，再次谢谢老师