Select e.DataCol.Name
Case "群组分类","客户供应商","企业税号"
If e.DataRow.IsNull("群组分类") OrElse e.DataRow.Isnull("客户供应商") OrElse e.DataRow.Isnull("企业税号") Then
e.DataRow("客户ID") = Nothing
Else
Dim xz As String = getpy(e.DataRow("群组分类"), True).toupper().PadRight(4,"A")
Dim gys As String = e.DataRow("客户供应商").toupper()
If gys.Length > 3 Then gys = gys.Substring(0,4)
Dim sh As String = e.DataRow("企业税号")
If sh.Length > 3 Then sh = sh.SubString(sh.Length - 4)
Dim lb As String = xz & "-" & getpinyin(gys,1).Toupper & "-" & sh & "-"
If e.DataRow("客户ID").StartsWith(lb) = False
Dim max As String = e.DataTable.SQLCompute("Max(Right(客户ID,3))","客户ID like '" & xz & "%' And [_Identify] <> " & e.DataRow("_Identify") ) '取得该类别的最大编号
Dim idx = 1
If max > "" Then
idx = cint(max.SubString(max.length - 3))+1
End If
e.DataRow("客户ID") = lb & format(idx, "000")
e.DataRow.save
End If
End If
End Select
加好友 
发短信
Post By：2019/1/12 9:52:00 [显示全部帖子]
