老师,我想重新设置一个商品ID 如果型号和规格列中含有中文就转换为字母。
此主题相关图片如下:图像 029.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-8/20188922151726594.png)
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 _Identify<> '" & e.DataRow("_Identify") & "'") '取得该类别的最大编号
If max > "" Then
e.DataRow("商品ID") = GetPy(lb, True) & format(cint(max.SubString(lb.length))+1, "00000")
Else
e.DataRow("商品ID") = GetPy(lb, True) & format(1, "00000")
If e.DataRow("商品ID").StartsWith(lb) = False '如果单据编号前缀不符
End If
End If
End If
End Select
[此贴子已经被作者于2018/8/9 22:21:06编辑过]