以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这个编号要怎么弄  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29799)

--  作者:布莱克朱
--  发布时间:2013/3/13 23:19:00
--  这个编号要怎么弄
  帮助的   会计科目.Table  这个科目代码 是怎么做的 做了好久 没有试出来. 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:会计科目.table




就是:

01
0101
0102
0103
010101
010102
010103
02
0201
0202
0203
020101
020102
020103


类似于这样的.

--  作者:智友软件工作室
--  发布时间:2013/3/13 23:47:00
--  
到底论坛有几个朱?
--  作者:e-png
--  发布时间:2013/3/14 8:56:00
--  

字符型就是这样的结果呀。


--  作者:狐狸爸爸
--  发布时间:2013/3/14 9:00:00
--  
是啊,要想怎么生成编号呢,能具体一点吗?
--  作者:blackzhu
--  发布时间:2013/3/14 9:43:00
--  
就是:

01
0101
0102
0103
010101
010102
010103
010201
010202
010203
010301
010302
010303
02
0201
0202
0203
020101
020102
020103


就是这样的编号 呀 规律如此!  一个编号看作一行.
 


[此贴子已经被作者于2013-3-14 9:45:06编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/3/14 9:48:00
--  

编号规则看得出来,问题是操作人员怎么输入? 会输入什么? 什么时候直接输入? 什么时候自动生成?

怎不能凭空生成这个编号吧,如果这样,一个循环就行了,在命令窗口执行:

 

For i As Integer = 1 To 3
    output.show(Format(i,"00"))
    For n As Integer = 1 To 3
        output.show(Format(i,"00") & Format(n,"00"))
        For m As Integer= 1 To 3
            output.show(Format(i,"00") & Format(n,"00") & Format(m,"00"))
        Next
    Next
Next

 

 


--  作者:blackzhu
--  发布时间:2013/3/14 9:51:00
--  
老大 我也不知道 人家给我的规则就是这样的 我只能按照这个规则来做.  其实我写出来了  只是 写的 觉得不符合逻辑
--  作者:e-png
--  发布时间:2013/3/14 9:52:00
--  
这个对你来说应该也不难啊, 前两位数一级,三四位数:二级,五六位为:三级····
--  作者:blackzhu
--  发布时间:2013/3/14 9:55:00
--  
老大  继承上下行关系的哦.  你看看你自己的会计科目的会计代码 就明白了
--  作者:e-png
--  发布时间:2013/3/14 9:59:00
--  

其实大家不知道你难在哪了,根据你的狐龄,这个应该是小菜一碟的才对。   呵呵。