主题：[分享]自动生成编号的问题——实例分享

在大家的帮助下，尤其是程版主的指点下，终于完成这个自动编号的问题了；但是我没有用MAX来做，因为对MAX比较字符串还是不太明白，我是用datarow的select获得记录总数做为初始编号，如果一直用记录数总数来编号的话，在有删除行的情况下，会出现重复编号，所以再用FIND倒序排序的方法获得当前的最大编号加1进行编号；觉得这种自动编号方法与帮助里略有不同，所以为感谢谢大家的帮助，特将此实例发出与大家共同分享；如果我的代码或逻辑还有哪些不足的地方欢迎大家指出；

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:foxtable自动编号.table

If e.DataRow("单据编号").StartsWith(bh) = False '如果单据编号前缀不符
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "工程代码 = '"& e.DataRow("工程代码") & "' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "#"
max = e.DataTable.Compute("Max(单据编号)",flt) '取得该月的相同工程代码的最大单据编号
If max > "" Then '如果存在最大单据编号
idx = CInt(max.Substring(12,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If

截止到本行当月制单日期的记录数！

 max用于字符串的时候，会按照一个规则来比较各位对应字符大小的。可以理解成等同于数值的比较。

 有没有Max用于比较字符例子呀？发出来参考一下呀；谢谢了

max是聚合函数，是用于统计的。没有单独的max函数。

学习了，谢谢楼主

收藏先，！

 其实过程都一样，能解决，就行了。