- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]帮我看看，下拉组合框目录树输入不成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89376)
-- 发布时间：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编辑过]
-- 发布时间：2016/8/20 11:24:00
--
msgbox(tr("类别名称"))弹出看看有没有值
-- 发布时间：2016/8/20 11:40:00
--
谢谢解答。
-- 发布时间：2016/8/20 11:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:分类编辑树.table |
-- 发布时间：2016/8/20 12:08:00
--
Tables("商品目录")没有"类别名称"这个列，改为其它列测试没有问题
-- 发布时间：2016/8/20 15:09:00
--
多谢指点。但是我改了其他列，也还是选择项上不了组合框。希望老师在我的文件中改一下，我仔细看看。不胜感谢！
-- 发布时间：2016/8/20 15:12:00
--
你的代码设置了只有第二级菜单才有效，如果不需要就去掉If e.Node.Level = 1的判断
-- 发布时间：2016/8/20 15:25:00
--
非常感谢老师的及时帮助。去掉if后，一切正常。