自定义函数--------------------------------------------------------------------
Dim tr_nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim cn As String = args(2)
Dim ls As List(of DataRow) = dt.Select("[" & cn & "] like '" & tr_nd.Name & "\%'" ,cn )
For Each r As DataRow In ls
Functions.Execute("财务科目树生成", tr_nd.Nodes.Add( r("科目代码") , r("科目名称") ) ,dt,cn )
Next
载入窗口后代码-
Dim tr As WinForm.TreeView = e.Form.Controls("树")
Dim l As List(of String) = DataTables("会计科目表").GetValues("科目大类",,"科目大类")
For Each s As String In l
Functions.Execute("财务科目树生成", tr.Nodes.Add(s , s ) , DataTables("会计科目表"),"级码" )
Next
加好友 
发短信
Post By：2020/2/19 17:15:00 [显示全部帖子]
