dim 首字母 as string = getpinyin(e.form.controls("1ComboBox1").text,1)
dr = DataTables("固定资产").AddNew() Dim max As String = DataTables("固定资产").SQLCompute("Max(资产编号)","资产编号 Like '" & 首字母 & ary(1) & "-" & "%'")
If max = "" Then dr("资产编号") = 首字母 & ary(1) & "-" & "0001" Else Dim v As Integer = max.SubString(max.length - 4,4) dr("资产编号") = 首字母 & ary(1) & "-" & format(v +1,"0000") End If