以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据单列字段字符长度生成目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131959)

--  作者:zhuxinhui
--  发布时间:2019/3/10 12:59:00
--  根据单列字段字符长度生成目录树
想把科目表生成个目录树,然后在凭证表科目编码列录入,
查过相关目录树要求多列或单列要求有分隔符,如果按字段长度分级不知怎样分,有参考资料吗?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip



--  作者:zhuxinhui
--  发布时间:2019/3/10 13:55:00
--  

Dim str As String = "1000000000003"
Dim ns As String = ""
ns = str.SubString(0, 4)
For i As Integer = 4 To str.length - 1
    If (i - 4) Mod 3 = 0 Then
        ns &= "," & str(i)
    Else
        ns &= str(i)
    End If
Next

msgbox(ns)

使用这个代码另外生成一列数据,再根据生成的数据生成目录树,除了这个还有其他方法吗?


--  作者:有点甜
--  发布时间:2019/3/10 17:09:00
--  

参考 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:编码规则.foxdb


--  作者:zhuxinhui
--  发布时间:2019/3/11 16:08:00
--  
这个太强了,得慢慢消化下才行,多谢
--  作者:zhuxinhui
--  发布时间:2019/3/12 20:27:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:编码规则.zip


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190312202414.png
图片点击可在新窗口打开查看
利用目录树进行凭证科目录入时出错
--  作者:有点蓝
--  发布时间:2019/3/12 20:36:00
--  
勾选“显示详细信息”,看是什么事件出错。


--  作者:有点甜
--  发布时间:2019/3/13 10:23:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:编码规则.foxdb


 


--  作者:zhuxinhui
--  发布时间:2019/3/13 22:02:00
--  
现在的目录树可以录入任何一级的目录,可以规定只录入最后一级目录吗?
--  作者:有点甜
--  发布时间:2019/3/13 22:47:00
--  
以下是引用zhuxinhui在2019/3/13 22:02:00的发言:
现在的目录树可以录入任何一级的目录,可以规定只录入最后一级目录吗?

 

加入判断,如

 

If e.node.nodes.count = 0 Then \'最末级

    \'原来代码

End If

 


--  作者:zhuxinhui
--  发布时间:2019/3/16 15:33:00
--  
多谢有点蓝、有点甜老师