Foxtable(狐表)用户栏目专家坐堂 → [求助]会计科目递归函数


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

主题:[求助]会计科目递归函数

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


加好友 发短信
等级:幼狐 帖子:111 积分:833 威望:0 精华:0 注册:2012/2/13 1:45:00
[求助]会计科目递归函数  发帖心情 Post By:2012/3/27 1:39:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:科目设置.jpg
图片点击可在新窗口打开查看

 

按教程:

 

1、在内部函数中新建一个函数,名为AddChildren,代码为:

 

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[科目级数] = '" & nd.name & "'")
For Each dr As DataRow In drs
    Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("科目编号"),dr("科目名称"))
    Functions.Execute("AddChildren",cd,dt)
Next

 

2、在窗口中加入一个目录树控件和一个按钮,按钮的代码为:+

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目")
tr.StopRedraw()
tr.Nodes.Clear
For Each dr As DataRow In dt.datarows
    If dr.IsNull("科目级数") Then
        nd = tr.Nodes.Add(dr("科目编号"),dr("科目名称"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw()

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:生成目录树.jpg
图片点击可在新窗口打开查看

 

 

点击没反应,代码错在哪?该怎么写才能生成这样的目录树,


 


图片点击可在新窗口打开查看此主题相关图片如下:目录树.jpg
图片点击可在新窗口打开查看

 

高手们指点一二啦图片点击可在新窗口打开查看


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


加好友 发短信
等级:幼狐 帖子:111 积分:833 威望:0 精华:0 注册:2012/2/13 1:45:00
  发帖心情 Post By:2012/4/8 1:45:00 [显示全部帖子]

发上表格,求高手帮忙测试

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:科目测试2.rar


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


加好友 发短信
等级:幼狐 帖子:111 积分:833 威望:0 精华:0 注册:2012/2/13 1:45:00
  发帖心情 Post By:2012/4/19 16:05:00 [显示全部帖子]

狐爸,你说这次更新会有例子的,但4月16日的更新没有提到呢图片点击可在新窗口打开查看


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


加好友 发短信
等级:幼狐 帖子:111 积分:833 威望:0 精华:0 注册:2012/2/13 1:45:00
  发帖心情 Post By:2012/4/20 8:55:00 [显示全部帖子]

非常感谢,卡了两个月的瓶颈得以解放

虽然还不知道“上级Idtfy”列是怎么算出来,但还有个“生成科目目录树addco”可以用

 

 

图片点击可在新窗口打开查看


 回到顶部