主题：用名称首字母生成编号

窗口1ComboBox1（名称），用名称首字母生成编号。

比如：电脑，首字母是DN。

请老师指教，谢谢！

dr = DataTables("固定资产").AddNew()
Dim max As String = DataTables("固定资产").SQLCompute("Max(资产编号)","资产编号 Like 'DN" & ary(1) & "-" & "%'")
If max = "" Then
     dr("资产编号") = "DN" & ary(1) & "-" & "0001"
 Else
     Dim v As Integer = max.SubString(9,4)
     dr("资产编号") = "DN" & ary(1) & "-" & format(v +1,"0000")
End If