主题：关于帮助中“自动编号生成方法”一节的疑惑

Dim BHTEMP As String

BHTEMP=format(e.Form.Controls("DateTimePicker2").Value,"yyyyMMdd")
Dim max As String
Dim idx As Integer

max = Tables("bmk").Compute("Max(BH)","substring([BH],5,8) = " & bhtemp & "" )

If max>"" Then
idx = CInt(max.Substring(12)) + 1

Else
idx = 1

End If

e.form.Controls("LabelBH1").text ="HHZY" & BHTEMP & Format(idx,"00000")

我刚好完成了这个，你参考一下我的代码咯，我生成的编号结构是这样的前缀“HHZY”，中间段就是日期比如”20120317“，后段为变动值五位“00001”

如果是同一日期的，后段变动自增，如果不是同一日期的那么后段默认从00001开始，放在TEXTCHANGED事件里，当日期变化，则重新计算编号