主题：关于自动编号的新问题

在datarowadding 中设置

有如下几个列：日期  年份  ID  单号


E.DATAROW("日期") = Date.Today

IF E.DATAROW("日期") IsNot Nothing Then
   e.datarow("ID")=CurrentTable.Compute("max(ID)","[年份] =#" & e.datarow("年份") & "#")+1
   e.datarow("单号")="GH" & FORMAT(E.DATAROW("日期"),"yyMM") & format(e.datarow("id"),"000")
end if

你试试，是否可以