主题：[求助]自动编号

帮助里的自动编号都是以日期或者类别为前缀，我想用特定的字符为前缀该怎样写代码

 

比如：SN0001

 去掉生成日期的代码，改成你的前缀就行。

 拷来一段代码。

Dim dt As DataTable = DataTables()   '表名
Dim drName As String = ""  '列名
Dim left As String = ""   '左边
Dim fomart As String = ""   '格式

Dim max As String
Dim idx As Integer
max = dt.Compute("Max(" & drName & ")")
If max > "" Then
    idx = CInt(max.SubString(left.Length, fomart.Length)) + 1
Else
    idx = 1
End If

msgbox(left &  Format(idx, fomart))

没改出来，能说的明白点么

看看：

 

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

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

 

 比如

Dim dt As DataTable = DataTables("表A")
Dim drName As String = "第一列"
Dim left As String = "SN"
Dim fomart As String = "0000"

Dim max As String
Dim idx As Integer
max = dt.Compute("Max(" & drName & ")")
If max > "" Then
    idx = CInt(max.SubString(left.Length, fomart.Length)) + 1
Else
    idx = 1
End If

msgbox(left &  Format(idx, fomart))

问题还是未能解决，不过还是谢谢帮忙