Select e.DataCol.Name
Case "群组分类"
If e.DataRow.IsNull("群组分类") Then
e.DataRow("客户ID") = Nothing
Else
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
老师，希望重置"群组分类"列"客户ID"列不发生变化或只修正错误的编号。
加好友 
发短信
Post By：2016/7/4 22:16:00 [显示全部帖子]
此主题相关图片如下：图像 1.png