主题：流水单号

递增的单号？

DataRowAdded事件

Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(第一列)","[_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
idx = CInt(max) + 1
e.DataRow("第一列") = Format(idx,"00000")

http://www.foxtable.com/help/topics/2403.htm

参考

http://www.foxtable.com/help/topics/1994.htm