自动编号问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我的编号列如下：BDSAFD-33;0025-23； 332-2；2355-3-55-3这样的，我有一个：复制增加，按钮。想实现，上面的编号：最后一个- 符号后的数字+1，自动编号。请问怎么写？

[此贴子已经被作者于2016/3/15 9:37:48编辑过]

Split，如何用：Split命令找到我上面的编号的最后一个"-"后的内容+1呢？

问题：

1、怎么统计：2355-3-55-开头的，最大数呢？

2、感觉下面的代码写啰嗦了。怎么改改好？

下面是我写的：复制增加按钮，的代码。

If Tables("材料").TopPosition > -1 Then '如果选定区域包括数据行

Dim dr As Row = Tables("材料").Current

Dim s As String = dr("定额编码")

If s > "" AndAlso s.Length <= 6 Then

Dim r As Row = Tables("材料").InsertNew()

r("材料名称") =dr("材料名称")

r("定额编码") =dr("定额编码") & "-1"

r("规格") =dr("规格")

r("分类") =dr("分类")

r("子分类") =dr("子分类")

r("单位") =dr("单位")

r("类别代码") =dr("类别代码")

r("图片") =dr("图片")

r("网址") =dr("网址")

r("网址2") =dr("网址2")

r("网址3") =dr("网址3")

r("材料文件") =dr("材料文件")

r("成本价") =0

Forms("材料维护").show

ElseIf s > "" AndAlso s.Contains("-")=False AndAlso s.Length > 6 Then

Dim r As Row = Tables("材料").InsertNew()

r("材料名称") =dr("材料名称")

r("定额编码") =dr("定额编码") & "-1"

r("规格") =dr("规格")

r("分类") =dr("分类")

r("子分类") =dr("子分类")

r("单位") =dr("单位")

r("类别代码") =dr("类别代码")

r("图片") =dr("图片")

r("网址") =dr("网址")

r("网址2") =dr("网址2")

r("网址3") =dr("网址3")

r("材料文件") =dr("材料文件")

r("成本价") =0

Forms("材料维护").show

ElseIf s > "" AndAlso s.Contains("-") AndAlso s.Length > 6 Then

Dim s1() As String = s.Split("-")

Dim Index As Integer = s.LastIndexOf("-")

Dim bh As String = s.SubString(0,Index+1)

????

End If

怎么才能把帮助的，自动增加编号，溶入呢？

要自动生成上面的编号，可以将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

If s > "" AndAlso s.Length <= 6 Then

ElseIf s > "" AndAlso s.Contains("-")=False AndAlso s.Length > 6 Then

这两个条件的结果一样，但是我不知道怎么把这两条代码合成一条？下面同一结果。

Dim r As Row = Tables("材料").InsertNew()

r("材料名称") =dr("材料名称")

r("定额编码") =dr("定额编码") & "-1"

r("规格") =dr("规格")

r("分类") =dr("分类")

r("子分类") =dr("子分类")

r("单位") =dr("单位")

r("类别代码") =dr("类别代码")

r("图片") =dr("图片")

r("网址") =dr("网址")

r("网址2") =dr("网址2")

r("网址3") =dr("网址3")

r("材料文件") =dr("材料文件")

r("成本价") =0

Forms("材料维护").show

[此贴子已经被作者于2016/3/22 13:28:56编辑过]

此主题相关图片如下：qq截图20160322132835.jpg

ElseIf s > "" AndAlso s.Contains("-") AndAlso s.Length > 6 Then

Dim str As String

If dr IsNot Nothing Then

str= dr("定额编码")

End If

Dim mystr As String = str.substring(Str.LastIndexOf("-"))

Dim r As Row = Tables("材料").InsertNew()

r("材料名称") =dr("材料名称")

r("规格") =dr("规格")

r("分类") =dr("分类")

r("子分类") =dr("子分类")

r("单位") =dr("单位")

r("类别代码") =dr("类别代码")

r("图片") =dr("图片")

r("网址") =dr("网址")

r("网址2") =dr("网址2")

r("网址3") =dr("网址3")

r("材料文件") =dr("材料文件")

r("成本价") =0

r("定额编码") = str.substring(0,Str.LastIndexOf("-")) & "-" & Format(cint(mystr.Replace("-",""))+1,"000")

Forms("材料维护").show

End If

主题：自动编号 问题

主题：自动编号问题