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

窗口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

dim 首字母  as string = getpinyin(e.form.controls("1ComboBox1").text,1)

谢谢

Dim ary() As String = Functions.Execute("Xueqi")
Dim m As Integer = e.Form.Controls("入库数量").Text
DataTables("固定资产").AddNew(m)
For Each dr As DataRow In DataTables("固定资产").DataRows
    dr("采购编号") = e.Form.Controls("采购编号").Text
    Dim max As String
    max = DataTables("固定资产").SQLCompute("Max(资产编号)","资产编号 Like '" & dx & "-"& ary(1) & "-" & "%'")
    If max = "" Then
        dr("资产编号") = dx &"-"& ary(1) & "-" & "0001"
    Else
        Dim v As Integer = max.SubString(max.length - 4,4)
        dr("资产编号") = dx & "-" & ary(1) & "-" & format(v+1,"0000")
    End If
    dr.Save()
Next

 

回复5楼，看代码看着没有问题。如果出错，请做一个对应实例发上来测试。