- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154163)
-- 发布时间：2020/9/6 10:50:00
-- 代码问题
老师，帮我看看哪里需要改一下，现在是不加1.所有编号都是001
Select e.DataCol.NameCase "商品类别"
If e.DataRow.IsNull("商品类别") Then
e.DataRow("商品编号").save
Else
Dim lb As String
If e.DataRow("商品类别") = "成品" Then
lb = "CP-"
ElseIf e.DataRow("商品类别") = "半成品"
lb = "BCP-"
ElseIf e.DataRow("商品类别") = "原材料"
lb = "YCL-"
ElseIf e.DataRow("商品类别") = "配件"
lb = "PJ-"
End If
If e.DataRow("商品编号").StartsWith(lb) = False \'如果单据编号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(商品编号)","商品类别 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(max.length - 3)) + 1 \'获得最大编号的后四位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("商品编号") = lb & Format(idx,"000")
End If
End If
End Select
-- 发布时间：2020/9/6 20:09:00
--
max = e.DataTable.Compute("Max(商品编号)","商品类别 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
改为
max = e.DataTable.Compute("Max(商品编号)","商品类别 = \'" & e.DataRow("商品类别") & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号-- 发布时间：2020/9/7 7:54:00
--
出现问题
此主题相关图片如下：001.png
-- 发布时间：2020/9/7 8:37:00
--
在1楼代码里改，看不懂代码就不要乱改