Foxtable(狐表)用户栏目专家坐堂 → [求助]下拉组合框绑定了一个目录树窗口,双击目录树节点后输入的内容都在表的第一行是生么原因?


  共有1752人关注过本帖树形打印复制链接

主题:[求助]下拉组合框绑定了一个目录树窗口,双击目录树节点后输入的内容都在表的第一行是生么原因?

帅哥哟,离线,有人找我吗?
1669607010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
[求助]下拉组合框绑定了一个目录树窗口,双击目录树节点后输入的内容都在表的第一行是生么原因?  发帖心情 Post By: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
哪位老师帮忙看看是哪里出了问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2018/5/14 15:53:00 [只看该作者]

谢谢甜老师,果然是把窗口表名写成主表名了,,再次谢谢老师

 回到顶部