主题：自动生成编号

师傅你好：

根据订单号自动生成编号

例：

订单号                          编号

11/20492                 ZT120001

11/20492                 ZT120001

CM11606                  ZT120002

PO20111228             ZT120003

PO20111228             ZT120003

 

说明：12代表2012年，0001是序号

        如果进入2013年，序号还是从0001开始，生成ZT130001

 

这组代码我不会写，还是请师傅帮忙，谢谢！

还是请老师傅帮忙整理一下，谢谢！

If e.DataCol.Name = "订单编号" Then
    If e.DataRow.IsNull("订单编号") Then
        e.DataRow("编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("订单编号"),"ZTyy") '取得编号的4位前缀
        If e.DataRow("编号").StartsWith(bh) = False '如果编号的前4位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(编号)","订单编号= #" & e.DataRow("订单编号") & "#") '取得最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(4,4)) + 1 '获得最大编号的后4位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("编号") = bh & "-" & Format(idx,"0000")
        End If
    End If
End If

请哪位师傅帮我改一下，谢谢

师傅你好：

我是按1楼订单号来改变编号序号，也就是同一个订单号、不论行数多少，序号不变，我不会处理，还是烦请师傅，谢谢！

 

各位师傅好：

请帮忙整理一下代码

 

师傅你好：

有日期列（是系统日期），按5楼模式是每增加一行序号增加1，我所要求的是，在同一个日期内，每增加一个订单号（有时同一天内不是一个订单号），序号增加1，谢谢！