- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 递归函数的会计科目录入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129243)
-- 发布时间：2018/12/25 9:50:00
-- 递归函数的会计科目录入
用递归函数生成的会计科目的录入问题,我已经在凭证录入窗口中设置好了会计科目的dropdownbox下拉,就是不知道怎么写代码能写入一级科目和明细科目(此级的科目是二级和三级的合并,例如应收账款我设置了8级编码),稍许变换了下就糊涂了,不知如何下手,麻烦老师帮我写下,我自己在领悟下?另因无任何编程基础,无函数基础,理解起来有些伤脑,有没有可以深入学习此函数的文件发我看下,谢谢!
-- 发布时间：2018/12/25 9:56:00
--
比如，nodemousedoubleclick事件，写代码
Dim fpath As String = e.node.FullPath
e.Form.DropDownBox.Value = fpath.Split("\\")(0)
e.Form.DropTable.Current("会计科目_明细科目") = fpath.replace(fpath.Split("\\")(0), "")
e.Form.DropDownBox.CloseDropdown