| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何将编号列转换成目录树要求的编码列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158020) |
| -- 作者：guosheng -- 发布时间：2020/11/5 10:58:00 -- 如何将编号列转换成目录树要求的编码列 问题 （1）不知道到底多少级别 （2）数据是以fill（selcet语句）的形式填充给了一个datatable，估计需要动态增加一列，来记录编码列。 该怎么处理啊？ 第一级为4位，其他级别都是2位
原来的编号 拟生成的编号 1001 1001 100101 1001.01 1002 1002 100201 1002.01 10020101 1002.01.01 100202 1002.02 10020201 1002.02.01 |
| -- 作者：有点蓝 -- 发布时间：2020/11/5 11:04:00 -- 换种方式生成目录树：http://www.foxtable.com/webhelp/topics/2502.htm Dim s As String = "10020101" For i As Integer = s.Length - 2 To 4 Step -2 s = s.Insert(i,".") Next msgbox(s) |
| -- 作者：guosheng -- 发布时间：2020/11/6 9:23:00 -- 根据帮助的例子生成了目录树，提示的错误如下（不影响生成目录树），错误可能什么原因啊？ 错误所在事件：DropBox1,AfterLoad 详细错误信息： Specified argument was out of the range of valid values. Parameter name: index
|
| -- 作者：有点蓝 -- 发布时间：2020/11/6 9:27:00 -- 索引超出范围。应该是调用函数传入的参数少了，函数里使用了超出范围的参数 |
| -- 作者：guosheng -- 发布时间：2020/11/6 10:45:00 -- nodemousedoubleclick代码： 代码应该没有问题吧 messagebox.show(e.Node.DataRow("ccode_name")) 双击节点报错 Object reference not set to an instance of an object. 生成目录树没有问题，生成目录树代码为： Dim cmd As new SQLCommand Dim dt As DataTable cmd.ConnectionName cmd.CommandText = "Selec t [ccode],[ccode_name],[iyear],[bend],[bbank],[bcash] F RO M {code} where bbank=0 And bcash=0 And iyear=" & val(Forms(e.Form.dropdownbox.form.name).Controls("DateTimePicker1").value) dt = cmd.ExecuteReader(True) \'记得将参数设置为True Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim rts() As String = {"全部","资产","负债","共同","权益","成本","损益"} Dim nd As WinForm.TreeNode tr.StopRedraw() tr.Nodes.Clear For Each rt As String In rts tr.Nodes.Add(rt) Next For Each dr As DataRow In dt.Select("","ccode") If dr.IsNull("ccode") = False AndAlso dr("ccode").Length = 4 Then Dim i As Integer = CInt(dr("ccode").Substring(0,1)) nd = tr.Nodes(i).Nodes.Add(dr("ccode"),dr("ccode") & " " & dr("ccode_name")) Functions.Execute("AddChildren",nd,dt) End If Next tr.ResumeRedraw() [此贴子已经被作者于2020/11/6 10:46:47编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/11/6 10:52:00 -- 提出函数的代码看看。 另外这种用法存在问题 Dim i As Integer = CInt(dr("ccode").Substring(0,1)) nd = tr.Nodes(i).Nodes 假设dr("ccode")值为5001，那么i=5，如果第一级点数不超过6个，tr.Nodes(i)是肯定出错的，tr.Nodes(5)指第6个节点，节点索引从0开始
|
| -- 作者：guosheng -- 发布时间：2020/11/6 10:56:00 -- 如何让获取的e.node.datarow 和节点对应上的行啊。 自定义函数如下（也是帮助的例子改的）： Dim nd As WinForm.TreeNode = args(0) Dim dt As DataTable = args(1) For Each dr As DataRow In dt.Select("","ccode") Dim km As String = dr("ccode") If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 2 Then Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("ccode_name")) Functions.Execute("AddChildren",cd,dt) End If Next
[此贴子已经被作者于2020/11/6 11:10:06编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/11/6 11:14:00 -- 这种方式生成的节点没有e.node.datarow，只能是通过节点名称（编号）到表格查询对应的行 |
| -- 作者：guosheng -- 发布时间：2020/11/6 12:14:00 -- nodemouthdoubleclick中有提示框，如何使得提示窗口出现时，下拉窗口不关闭啊。 messagebox.show("操作有误，重新操作!") e.cancel=True 或 return 都不行，跳出来提示窗口，下拉窗口就关闭了。
|
| -- 作者：有点蓝 -- 发布时间：2020/11/6 12:16:00 -- 建议不用在在下拉窗口弹出其他窗口 试试 messagebox.show("操作有误，重新操作!") e.Form.DropDownBox.OpenDropDown()
|