主题：文本框自动按日期框年月编号

参考这里的做法

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

贴出你表格里面写好的代码。

If e.form.Controls("DateTimePicker1").text =  Nothing Then
    e.Form.controls("TextBox1").value = Nothing
Else
    Dim bh As String = Format(cdate(e.form.Controls("DateTimePicker1").text) ,"yyyyMMdd") '取得编号的8位前缀
    Dim  max As String
    Dim  idx As  Integer
    max = DataTables("采购").Compute("Max(单号)","入库日期 = #" &  e.form.Controls("DateTimePicker1").value & "#" ) '取得该天的最大编号
    If  max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(9,3)) + 1  '获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End  If
    e.Form.controls("TextBox1").value = bh & "-" & Format(idx,"000")
   
End  If