Foxtable(狐表)用户栏目专家坐堂 → [求助]拆分合并数据


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

主题:[求助]拆分合并数据

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


加好友 发短信
等级:三尾狐 帖子:621 积分:5555 威望:0 精华:0 注册:2012/8/2 19:04:00
[求助]拆分合并数据  发帖心情 Post By:2012/9/4 15:32:00 [只看该作者]

 

求教各位几个小问题:

 

1、表1项目列的多选下拉菜单如何选择第一个节点后自动全选其下面的子节点。
2、在编号001行使用了多选下拉菜单后,在编号002行使用多选下拉菜单时如何将已经选择的值进行重置。
3、如何根据表4的内容对表1项目列的内容进行分类拆分到表2及表3
    表2:根据表4的分类依据,将表1的内容属于同一条依据的项目合并在一起,不同依据的项目分开
    表3:根据表4的项目分类,将表1的项目全部分开

 

                                         谢谢啦~~

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


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/9/4 15:46:00 [只看该作者]

1、目录树控件AfterCheckNode事件代码:


For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
Next

 

 

 


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


加好友 发短信
等级:三尾狐 帖子:621 积分:5555 威望:0 精华:0 注册:2012/8/2 19:04:00
  发帖心情 Post By:2012/9/4 16:08:00 [只看该作者]

谢谢czy,第一个问题搞定了!

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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/9/4 16:36:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:三尾狐 帖子:621 积分:5555 威望:0 精华:0 注册:2012/8/2 19:04:00
  发帖心情 Post By:2012/9/4 16:52:00 [只看该作者]

恩恩~是的

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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/9/4 17:50:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:三尾狐 帖子:621 积分:5555 威望:0 精华:0 注册:2012/8/2 19:04:00
  发帖心情 Post By:2012/9/5 8:54:00 [只看该作者]

以下是引用muhua在2012-9-4 17:50:00的发言:

2、改动了窗口的AfterLoad和按钮的Click(增加关闭和防止不选择点击确定出错)

  

 下载信息  [文件大小:604.0 KB  下载次数:2]
图片点击可在新窗口打开查看点击浏览该文件:数据拆分.table

 

 

谢谢muhua的帮助,按照你这样改了之后有个问题,每次选择过的项目在下面一个单元格里面就没有这个选项了,就是说选择过的的项目不会再次出现!麻烦你再看看~


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


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

AfterLoad事件改为:

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("表4", "类别|项目")
Dim s As String  = e.Form.DropDownBox.Value
Dim nms As new List(of String)
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If s > "" Then
    nms.AddRange(s.Split(","))
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    nd.Checked = nms.Contains(nd.text)
Next

 


 回到顶部