老师有要麻烦你了。我想把下面的代码改成能像剪切图片中显示的格式一样。
此主题相关图片如下:image 3.png
Select e.DataCol.Name
Case "群组分类","客户供应商","企业信息_税号"
If e.DataRow.IsNull("群组分类") OrElse e.DataRow.Isnull("客户供应商") OrElse e.DataRow.Isnull("企业信息_税号") Then
e.DataRow("客户ID") = Nothing
Else
' Dim lb As String = getpy(e.DataRow("商品名称")) & "-" & e.DataRow("型号") & "-" & e.DataRow("规格") & "-"
Dim lb As String = getpy(e.DataRow("群组分类"), True).toupper & "-" & e.DataRow("客户供应商") & "-" & e.DataRow("企业信息_税号") & "-"
Dim max As String = e.DataTable.Compute("Max(客户ID)","客户id like '" & lb & "%' And _Identify<> '" & e.DataRow("_Identify") & "'") '取得该类别的最大编号
Dim idx = 1
If max > "" Then
idx = cint(max.SubString(lb.length))+1
End If
e.DataRow("客户ID") = lb & format(idx, "00")
End If
End Select