主题：[求助] 订单号按规则顺序输入

您好！

 

我们的订单系统中的订单号的生成想实现如下功能。

由录入当日年份的后两位数字  

+ 月份的两位数字 

+ 日期的两位数字（如果月份或日期是一位数字，则在前面补0）

+ 一位字母（当天第一个用A、第二个单用B、第三个单用C.....，第27个单用AA表示、第28个单用AB表示.......，当到达两位最大数ZZ时，下一位自动从AAA、AAB、AAC.....,AAZ、ABA、ABB......，ZZZ，以此类推，不论是增加行时自动生成的订单号，还是手动输入，订单号依次不重复、不后退、不跳跃。 如果手动输入不合规，则光标不能离开单元格，直到输入正确为止）。

 

例如170508A，代表2017年5月8日第一个订单；161130H，代表2016年11月30日的第八个订单。

 

我在Datarowadding实践中写入并保存了如下代码：

Dim mo As String = cstr(Date.today.Month)

Dim da As String = cstr( Date.today.Day)

If mo.length = 1

    mo = "0" & mo

ElseIf da.length = 1

    da = "0" & da

End If

Dim qz As String = cstr(Date.today.Year).SubString(2,2) & mo & da

Dim ac As Integer = 65

If  e.DataRow("订单号").contains(qz)

    ac = asc(right(e.DataRow("订单号"),1)) + 1

    e.DataRow("订单号") = qz & chr(ac)

Else

    e.DataRow("订单号") = qz & chr(ac)

End If

但是只实现了当天第一个订单的输入。

由于我再Datacolchanging 实践中输入了代码：

Select Case e.DataCol.Name

    Case "订单号"

        Dim dr As DataRow = e.DataTable.Find("订单号 = '" & e.NewValue & "'")

        If dr IsNot Nothing Then

            MessageBox.Show("此订单号已经存在!")

            e.Cancel = True

        ElseIf e.DataCol.Name = "订单号" Then

            If e.NewValue Is Nothing Then

                MessageBox.Show("订单号不允许为空!")

                e.Cancel = True

            End If

        End If

End Select

所以再增加一行时，显示弹出对话框显示("此订单号已经存在!")， 此新增的订单号输入不成功。

 

请帮我指正，谢谢！

 

刘生

年月日后面为什么不直接引用序号呢?非要用个字母?建议还是引用序号为好!

参考这里设计

 

http://www.foxtable.com/webhelp/scr/2403.htm

 

001、002、003这些转换成字母的代码，参考

 

Dim idx As Integer = 30
Dim ac As Integer = 65
Dim str As String = ""
Do While True
    idx = idx - 1
    Dim m As Integer = idx Mod 26
    idx = idx \ 26
    str = str.Insert(0,chr(65+m))
    If idx = 0 Then
        Exit Do
    End If
Loop
output.show(str)

谢谢版主的帮助。我写了如下代码：

Select Case e.DataCol.name
    Case "编制日"
        If e.DataRow.IsNull("编制日") Then
            e.DataRow("订单号") = Nothing
        Else
            Dim bh As String = Format(e.DataRow("编制日"),"yyMMdd") '取得编号的6位前缀
            If e.DataRow("订单号").StartsWith(bh) = False '如果编号的前6位不符
                Dim idx As Integer
                Dim drs As List(Of DataRow)
                drs = e.DataTable.Select("编制日 = #" & e.DataRow("编制日") & "#", "_Identify") '找出所有符合条件的行
                For i As Integer = 0 To drs.count-1
                    If drs(i)("_Identify")  =e.DataRow("_Identify")
                        idx = i + 1
                        drs(i)("订单号") = bh & IIf(idx>702,Chr((idx-703)\676+65),"")&IIF(idx>26,Chr(((idx-1)/26-1) Mod 26 +65),"")&Chr((idx-1) Mod 26 +65)
                        '参考Excel 表达式IF(Row()>702,Char(INT((Row()-703)/676)+65),"")&IF(Row()>26,Char(Mod((Row()-1)/26-1,26)+65),"")&CHAR(Mod(Row()-1,26)+65)'
                    End If
                Next
            End If
        End If
End Select

版主，您好！

我用了另外一串代码，只实现了从尾号从A到Z编号，Z之后一个编号就是180304[，再增加一行时，弹出对话框说“此订单号已经存在”。

 

1、你的代码写在datacolchanged事件，你需要输入【编制日】的值，才会计算编号的。

 

2、如果想增加行，立马填入，你可以在DataRowAdded事件，写代码 e.DataRow("编制日") = Date.Today

感谢回复
可是我已经在[编制日]的列属性默认值里面写了Date(), 是否等效于在DataRowAdded事件中的代码 e.DataRow("编制日") = Date.Today？

用5楼代码，同时，删除默认值函数date()，在DataRowAdded事件，写代码 e.DataRow("编制日") = Date.Today

 

如果还有问题，请上传具体实例说明。