主题：[求助]

1、不同类型的编号，编写的代码不能一样的。

 

2、你写的这个代码，意识是前8位是前缀，后面5位是编号，但对于【ZJHK/ZY-768】或 【ZJHK/ZY-CZ01】就不适用了

 

idx = cint(i.SubString(8,5)) +1

 

你可以尝试改成比如

 

idx = val(i.SubString(8)) +1

 

但这样，也不能匹配你所有的编号的，必须有相同的规律才行。

 

3、具体实例发上来测试，说明你要做到什么效果。

代码改成这样试试，看弹出什么

 

1、你数据里面，为什么有这样的数据？【ZJHK/ZY-Y10】？

 

2、或者，你可以把

 

Dim i As String = DataTables("杭康设备总表").Compute("max(公司编号)")

 

改成

 

Dim i As String = DataTables("杭康设备总表").Compute("max(公司编号)", "len(公司编号)=13")

改成

 

Dim i As String = DataTables("杭康设备总表").Compute("max(公司编号)", "len(公司编号)=13")

 

 

改成

 

Dim i As String = DataTables("杭康设备总表").Compute("max(公司编号)", "len(公司编号)=13 and substring(公司编号, 9, 1) in ('0','1','2','3','4','5','6','7','8','9')")

改成

 

Dim i As String = DataTables("杭康设备总表").Compute("max(公司编号)", "len(公司编号)=13 and substring(公司编号, 9, 1) in ('0','1','2','3','4','5','6','7','8','9') and substring(公司编号, 12, 1) in ('0','1','2','3','4','5','6','7','8','9')")