主题：窗口文本框显示编号的代码问题

AfterLoad事件

Dim max As String = DataTables("收款明细表").compute("max(收款编号)")
If max > "" Then
    max = max.SubString(0,5) & Format(val(max.SubString(5))+1, "00000")
Else
    max = Date.Today.Year & "-00001"
End If

e.form.controls("TextBox1").Text = max