Foxtable(狐表)用户栏目专家坐堂 → [求助]帮我看看,下拉组合框目录树输入不成


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

主题:[求助]帮我看看,下拉组合框目录树输入不成

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


加好友 发短信
等级:幼狐 帖子:57 积分:432 威望:0 精华:0 注册:2016/7/30 12:37:00
[求助]帮我看看,下拉组合框目录树输入不成  发帖心情 Post By:2016/8/20 10:56:00 [只看该作者]

下拉组合框输入,在下拉窗口的TreeView的NodeMouseClick事件代码设置为:
If e.Node.Level = 1 Then 
    Dim tr As Row = Tables("商品目录").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("类别名称") = dr("类别名称")
    tr("类别ID") = dr("类别ID")
    
    e.Form.DropDownBox.Value = tr("类别名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    e.Form.DropDownBox.CloseDropdown()
End If
结果输入的DropDownBox没有填上选择值
[此贴子已经被作者于2016/8/20 10:58:10编辑过]

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/20 11:24:00 [只看该作者]

msgbox(tr("类别名称"))弹出看看有没有值

测试没有问题,上例子说明

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


加好友 发短信
等级:幼狐 帖子:57 积分:432 威望:0 精华:0 注册:2016/7/30 12:37:00
  发帖心情 Post By:2016/8/20 11:40:00 [只看该作者]

谢谢解答。

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


加好友 发短信
等级:幼狐 帖子:57 积分:432 威望:0 精华:0 注册:2016/7/30 12:37:00
  发帖心情 Post By:2016/8/20 11:41:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:分类编辑树.table


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/20 12:08:00 [只看该作者]

 Tables("商品目录")没有"类别名称"这个列,改为其它列测试没有问题

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


加好友 发短信
等级:幼狐 帖子:57 积分:432 威望:0 精华:0 注册:2016/7/30 12:37:00
  发帖心情 Post By:2016/8/20 15:09:00 [只看该作者]

多谢指点。但是我改了其他列,也还是选择项上不了组合框。希望老师在我的文件中改一下,我仔细看看。不胜感谢!

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/20 15:12:00 [只看该作者]

你的代码设置了只有第二级菜单才有效,如果不需要就去掉If e.Node.Level = 1的判断

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


加好友 发短信
等级:幼狐 帖子:57 积分:432 威望:0 精华:0 注册:2016/7/30 12:37:00
  发帖心情 Post By:2016/8/20 15:25:00 [只看该作者]

非常感谢老师的及时帮助。去掉if后,一切正常。

 回到顶部