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
|