- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师，帮我看看问题出在哪里，如何处理？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20631)
-- 发布时间：2012/6/14 9:42:00
-- 老师，帮我看看问题出在哪里，如何处理？
老师，帮我看看问题出在哪里，如何处理？
我做了自动编号，当关联表B首行选定自动编号时，后4位序号从1开始；而当首行选定原有批号输入后第二行再输入自动编号时，后4位序号出错。请您帮我看看，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2012/6/14 9:59:00
--
你说的出错时什么意思？
-- 发布时间：2012/6/14 10:29:00
--
如果关联表B首行批号列从列表项中选用原来批号输入，当第二行采用自动编号输入时，后4位序号不会从1开始
-- 发布时间：2012/6/14 10:33:00
--
按设计要求，每个编号下数批号都应该从1开始；但我做的这个编号无法实现这个要求，不知问题出在哪里？
-- 发布时间：2012/6/14 10:36:00
--
是不是我输入的代码没有正确识别编号前缀？该如何处理？
-- 发布时间：2012/6/14 11:25:00
--
Select e.DataCol.Name
Case "新单"
If e.DataCol.Name = "新单" Then
If e.NewValue = True Then
If e.DataRow.IsNull("批号") Then
Dim lb As String = e.DataRow("编号")
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") & " And 新单 = True") \'取得该编号的最大号
If max > "" Then \'如果存在最大号
idx = max.IndexOf("-") + 1
idx = CInt(max.Substring(idx)) + 1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("批号") = lb & "-" & Format(idx,"0000")
End If
End If
End If
End If
End Select
-- 发布时间：2012/6/14 12:22:00
--
谢谢老师！