Foxtable(狐表)用户栏目专家坐堂 → [求助]带查找功能的下拉目录树,增加一个 确定按钮 的代码怎么写?谢谢


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

主题:[求助]带查找功能的下拉目录树,增加一个 确定按钮 的代码怎么写?谢谢

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]带查找功能的下拉目录树,增加一个 确定按钮 的代码怎么写?谢谢  发帖心情 Post By:2016/3/28 20:43:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:带查找功能的下拉目录树,确定按钮.png
图片点击可在新窗口打开查看
想把 下一个按钮移动到上面后,增加一个 确定按钮,不知道代码怎么写
[此贴子已经被作者于2016/3/28 20:44:08编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2016/3/28 20:57:00 [显示全部帖子]

红袍大师,如果 是当前表呢,因为这个 目录树要在多个表用,不止在 客户 这个表。感谢红袍大师的速度够快,刚发的贴
[此贴子已经被作者于2016/3/28 20:58:14编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2016/3/28 21:12:00 [显示全部帖子]

在其他表里调用这个窗口不行,还没理解,大师再指定一下了。还是不理解,为什么不是 CurrentTable.Current呢?

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2016/3/28 21:15:00 [显示全部帖子]

想通用目录树窗口里的确定按钮,在多个表通用。其他表这里写代码了,也不行,怎么改呢?
图片点击可在新窗口打开查看此主题相关图片如下:fff.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/3/28 21:18:54编辑过]

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2016/3/28 22:05:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:w.png
图片点击可在新窗口打开查看
上面的代码报错的,有问题

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


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2016/3/28 22:17:00 [显示全部帖子]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim tr As Row = e.Form.DropTable.Current
    Dim dr As DataRow =  trv.SelectedNode.DataRow '获取生成此节点的DataRow
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市")
    e.Form.DropDownBox.CloseDropdown()
End If

ok了,多了个Current,谢老师


 回到顶部