- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]拆分合并数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23171)
-- 发布时间：2012/9/4 15:32:00
-- [求助]拆分合并数据
求教各位几个小问题：
1、表1项目列的多选下拉菜单如何选择第一个节点后自动全选其下面的子节点。
2、在编号001行使用了多选下拉菜单后，在编号002行使用多选下拉菜单时如何将已经选择的值进行重置。
3、如何根据表4的内容对表1项目列的内容进行分类拆分到表2及表3
表2：根据表4的分类依据，将表1的内容属于同一条依据的项目合并在一起，不同依据的项目分开
表3：根据表4的项目分类，将表1的项目全部分开
谢谢啦~~
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据拆分.table |
-- 发布时间：2012/9/4 15:46:00
--
1、目录树控件AfterCheckNode事件代码：
For Each nd As WinForm.TreeNode In e.Node.AllNodes
nd.Checked = e.Node.Checked
Next
-- 发布时间：2012/9/4 16:08:00
--
谢谢czy，第一个问题搞定了！
-- 发布时间：2012/9/4 16:52:00
--
恩恩~是的
-- 发布时间：2012/9/5 8:54:00
--
2、改动了窗口的AfterLoad和按钮的Click（增加关闭和防止不选择点击确定出错）
| 下载信息 [文件大小：604.0 KB 下载次数：2] | |
 点击浏览该文件:数据拆分.table |
谢谢muhua的帮助，按照你这样改了之后有个问题，每次选择过的项目在下面一个单元格里面就没有这个选项了，就是说选择过的的项目不会再次出现！麻烦你再看看~
-- 发布时间：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