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是流水号），那么上面的代码要怎么改写（即加入前缀和记录时的日期），谢谢！