Foxtable(狐表)用户栏目专家坐堂 → 表中数据执行保存操作时,如何更新的目录树?


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

主题:表中数据执行保存操作时,如何更新的目录树?

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10568 威望:0 精华:0 注册:2014/2/19 16:32:00
表中数据执行保存操作时,如何更新的目录树?  发帖心情 Post By:2014/3/28 16:23:00 [只看该作者]

目录树是用SQL生成的(见范例:用SQL语句设计加载树)表中数据执行保存操作按钮时,目录树如何同步刷新?
注:目录树我是根据年的字段生成的,如果我添加一条记录是新的一年,则目录树要同步更新,如何实现。

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/3/28 16:25:00 [只看该作者]

不能同步更新,只能重新生成,加个刷新按钮算了,类似:

http://www.foxtable.com/help/topics/2350.htm

 


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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10568 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/3/28 23:25:00 [只看该作者]

不能在保存按钮的事件中保存完数据后执行目录树的刷新吗?

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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2014/3/28 23:30:00 [只看该作者]

这是编程哦,肯定可以啊,你在保存按钮的代码后面,加上刷新目录树的代码不就行了?

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10568 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/3/31 10:29:00 [只看该作者]

非常感谢,我去试试

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10568 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/4/1 22:40:00 [只看该作者]

追问:刷新目录树的代码即是生成目录树的代码,
图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看
目录树根节点是2013年,二级节点是2月,鼠标双击2月节点目录树处于展开状态,填加了一条记录后执行目录树更新操作,结果更新后的目录树都会恢复成缩回状态,如何保证目录树刷新后仍然是展开并选中某节点的状态?

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


加好友 发短信
等级:五尾狐 帖子:1107 积分:10568 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2014/4/1 22:44:00 [只看该作者]

刷新按钮的代码:
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(CheckDate) As 年, Month(CheckDate) As 月 From {Translators}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月")

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/4/2 7:49:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(CheckDate) As 年, Month(CheckDate) As 月 From {Translators}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月")

tv.ExpandAll()


 回到顶部