谢谢老师，参照帮助写了代码，但是出了点问题，开发者 密码：qdkf
出现的问题是：在“加工排产”表中，代码如下：
If e.DataCol.Name = "第1序_配膳日" Then
If e.DataRow.IsNull("第1序_配膳日") Then
e.DataRow("第1序_加工日期编号") = Nothing
Else
Dim bh As String = Format(e.DataRow("第1序_配膳日"),"yyyyMMdd") '取得编号的8位前缀
If e.DataRow("第1序_加工日期编号").StartsWith(bh) = False '如果编号的前8位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(第1序_加工日期编号)","第1序_配膳日 = #" & e.DataRow("第1序_配膳日") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("第1序_加工日期编号") = bh & "-" & Format(idx,"000")
End If
End If
End If
问题：在“第1序_加工日期编号”中不是从001开始排序的，如图，有的是从004开始排的，
此主题相关图片如下：123.png
请老师帮看看，问题出在哪里呢？谢谢！
加好友 
发短信
Post By：2017/5/17 14:00:00 [显示全部帖子]
