请教一个编码大小问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教一个编码大小问题？产品目录库有一个产品编码的字段，为字符型，其中有值为10000,9999,9998，我取最大值，应该是多少？我的代码是Dim khbh As String

Dim max As String

Dim idx As Integer

max = DataTables("产品目录表").sqlCompute("Max(产品编码)")

If max > "" Then '如果存在最大客户编码

idx = CInt(max) + 1 '获得最大客户编码的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

khbh=Format(idx,"00000")

这样计算出来最大值是9999+1 ，而不是10000+1

我要的是10000+1 ，不知道错在哪里？求答谢谢

主题：请教一个编码大小问题？