Foxtable(狐表)用户栏目专家坐堂 → [求助]通用下拉目录树问题


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

主题:[求助]通用下拉目录树问题

美女呀,离线,留言给我吧!
huanglan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:645 威望:0 精华:0 注册:2019/12/26 15:26:00
[求助]通用下拉目录树问题  发帖心情 Post By:2020/1/7 16:28:00 [只看该作者]

If e.Node.Level = 2 Then '如果单击的是第三层节点
    Dim tr As Row
    Dim dr As DataRow = DataTables("功能分类目录树").find("功能分类代码 = '" & e.Node.Name & "'")    ' 据节点名称查表
    If e.Form.DropTable IsNot Nothing Then    '如果下拉窗口是从表中打开
        tr = e.Form.DropTable.Current     '获取此表的当前行
    Else     '如果下拉窗口是通过DropdownBox打开
        Dim nm As String =e.Form.DropDownBox.BindingField     '获取绑定的字段
        nm = nm.Split(".")(0) '获取绑定的表名
        tr = Tables(nm).Current     '获取此表的当前行
    End If
    tr("功能分类_代码") = dr("功能分类代码")
    tr("功能分类_类名") = dr("功能分类类名")
    tr("功能分类_款名") = dr("功能分类款名")
    tr("功能分类_项名") = dr("功能分类项名")
    tr("功能分类_名称") = dr("功能分类名称")
    e.Form.DropDownBox.Value = tr("功能分类代码")

    e.Form.DropDownBox.CloseDropdown()
End If

上面代码是绑定状态的代码,如果DropDownBox控件不绑定表格,上面代码应该如何改?????


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107756 积分:548119 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 16:37:00 [只看该作者]

DropDownBox控件的命名加上表名,比如:DropDownBox1_订单

nm = e.Form.DropDownBox.name.Split("_")(1)

 回到顶部
美女呀,离线,留言给我吧!
huanglan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:645 威望:0 精华:0 注册:2019/12/26 15:26:00
  发帖心情 Post By:2020/1/7 20:23:00 [只看该作者]

选择目录树后,控件绑定了单元格,与录入窗口的初衷不符合 ,想达到选择目录树的值在控件里 ,点击保存按钮后才写入单元格,而不是选择目录树的值直接写入单元格

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107756 积分:548119 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 20:35:00 [只看该作者]

那就不要绑定呀

 回到顶部
美女呀,离线,留言给我吧!
huanglan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:645 威望:0 精华:0 注册:2019/12/26 15:26:00
  发帖心情 Post By:2020/1/7 20:37:00 [只看该作者]

原代码是绑定的,我想要的代码是不绑定的,求改的代码

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107756 积分:548119 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 20:57:00 [只看该作者]

看2楼

 回到顶部