以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助大神!!Foxtable怎么按照分类自动生成编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72784)

--  作者:猩猩与土豆
--  发布时间:2015/8/6 10:30:00
--  求助大神!!Foxtable怎么按照分类自动生成编号

图片点击可在新窗口打开查看此主题相关图片如下:表.png
图片点击可在新窗口打开查看

我想按照产品分类来自动生成编号,比如:产品一类的进口商品为01,产品二类的葡萄酒为02,产品三类的红葡萄酒为03,然后可以自动生成11位数的编号,也就是010203*****,也就是说前面6为是按产品分类生成,每个分类分配2位数,后面5位数自动生成,比如00001、00002、00003这样的

有没有哪位大神会写这个代码啊??急需!!!!!先谢过了~~·
[此贴子已经被作者于2015/8/6 10:42:37编辑过]

--  作者:大红袍
--  发布时间:2015/8/6 10:31:00
--  

 参考

 

http://www.foxtable.com/help/topics/2403.htm

 


--  作者:猩猩与土豆
--  发布时间:2015/8/6 10:45:00
--  
这个都是按日期生成的,实在不会改
--  作者:大红袍
--  发布时间:2015/8/6 10:49:00
--  

看例子3

 

三、按类别编号

假定有下图所示的一个表,编号根据类别生成,前两位为类别,后三位为顺序号:

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

要自动生成上面的编号,可以将DataColChanged事件代码设置为:

 

Select e.DataCol.Name
    Case
"类别"
       
If e.DataRow.IsNull("类别") Then
            e.
DataRow("编号") = Nothing
        Else
            Dim
lb As String = e.DataRow("类别")
            If
e.DataRow("编号").StartsWith(lb) = False \'如果单据编号前缀不符
               
Dim max As String
               
Dim idx As Integer

                max = e.DataTable.Compute("Max(编号)","类别 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
               
If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(
2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
               
Else
                    idx =
1 \'否则顺序号等于1
               
End If
                e.
DataRow("编号") = lb & Format(idx,"000")
            End
If
        End
If
End
Select


--  作者:猩猩与土豆
--  发布时间:2015/8/6 10:57:00
--  
关键是我的分类原本是中文,还要把它转为数字在编号呀~~
比如进口商品转为01,国内商品转为02这样

--  作者:大红袍
--  发布时间:2015/8/6 11:00:00
--  
 上传foxtable项目
--  作者:猩猩与土豆
--  发布时间:2015/8/6 11:07:00
--  
感谢~~
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动生成编号1.rar


--  作者:大红袍
--  发布时间:2015/8/6 11:51:00
--  
 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:商品.table


--  作者:猩猩与土豆
--  发布时间:2015/8/6 14:22:00
--  
请问为什么桃红葡萄酒的编号是空啊?这些编号设置什么的全都是在表事件DataColChanged的代码里面定义的吗?
--  作者:猩猩与土豆
--  发布时间:2015/8/6 14:30:00
--  
很多分类编号都是显
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看
示空也~~
[此贴子已经被作者于2015/8/6 14:30:06编辑过]