Select e.DataCol.Name
Case "群组分类"
If e.DataRow.IsNull("群组分类") Then
e.DataRow("客户ID") = Nothing
Elseif e.DataRow.Isnull("客户ID") Then
Dim lb As String = e.DataRow("群组分类")
Dim max As String = e.DataTable.Compute("Max(客户ID)","群组分类 = '" & lb & "' And 编号<> '" & e.DataRow("编号") & "'") '取得该类别的最大编号
If max > "" Then
e.DataRow("客户ID") = GetPy(lb, True).SubString(0, 1) & format(cint(max.SubString(1))+1, "000")
Else
e.DataRow("客户ID") = GetPy(lb, True).SubString(0, 1) & format(1, "000")
End If
End If
End Select
加好友 
发短信
Post By：2016/7/6 16:19:00 [显示全部帖子]
