谢谢老师,参照帮助写了代码,但是出了点问题,开发者 密码: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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-5/20175189225719692.png)
请老师帮看看,问题出在哪里呢?谢谢!