以文本方式查看主题

-  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=26494)

--  作者:fzyqybzc
--  发布时间:2012/12/6 11:27:00
--  [求助]如何在下面的代码上加上前缀?自动编码
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
If e.sender.Value Is Nothing Then
    txt.value = Nothing
Else
    Dim d As Date = e.sender.value
    Dim y As Integer = d.Year
    Dim m As Integer = d.Month
    Dim Days As Integer = Date.DaysInMonth(y,m)
    Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
    Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
    Dim bh As String = Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月.
    Dim max As String
    Dim idx As Integer
    max = DataTables("订单").Compute("Max(订单号)","订货日期 >= #" & fd & "# And 订货日期 <= #" & ld & "#") \'取得该月的最大编号
    If max > "" Then \'如果存在最大编号
        idx = CInt(max.Substring(7,4)) + 1 \'获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 \'否则顺序号等于1
    End If
    txt.value = bh & "-" & Format(idx,"0000")
    
End If

上面这段代码是狐爸解答如何在文本框中根据日期来生成自动编码,生成的格式是(输入今天的日期的话)201212-0001,我想要的格式为:DD20121206001 (DD是前缀 20121206是生成该条记录时的日期  001是流水号),那么上面的代码要怎么改写(即加入前缀和记录时的日期),谢谢!


--  作者:狐狸爸爸
--  发布时间:2012/12/6 11:39:00
--  
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
If e.sender.Value Is Nothing Then
    txt.value = Nothing
Else
    Dim d As Date = e.sender.value
    Dim y As Integer = d.Year
    Dim m As Integer = d.Month
    Dim Days As Integer = Date.DaysInMonth(y,m)
    Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
    Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
    Dim bh As String = "DD" & Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月.
    Dim max As String
    Dim idx As Integer
    max = DataTables("订单").Compute("Max(订单号)","订货日期 >= #" & fd & "# And 订货日期 <= #" & ld & "#") \'取得该月的最大编号
    If max > "" Then \'如果存在最大编号
        idx = CInt(max.Substring(9,4)) + 1 \'获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 \'否则顺序号等于1
    End If
    txt.value = bh & "-" & Format(idx,"0000")
End If

--  作者:fzyqybzc
--  发布时间:2012/12/6 11:49:00
--  
谢谢狐爸的指点,十分感谢!刚才试验了一下,没有日期,只要 把Dim bh As String = "DD" & Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月.这行改为 Dim bh As String = "DD" & Format(Date.Today,"yyyyMMdd") 即可。
再次谢谢狐爸!
[此贴子已经被作者于2012-12-6 12:05:14编辑过]