[求助]编号问题,这是我改的代码,第一行可以,第二行就出错了, Post By:2012/5/18 16:10:00 [只看该作者]
If e.DataCol.Name = "出入库日期" Then If e.DataRow.IsNull("出入库日期") Then e.DataRow("出入库单号") = Nothing Else Dim bh As String = Format(e.DataRow("出入库日期"),"yyyyMMdd") '取得编号的8位前缀 If e.DataRow("出入库单号").StartsWith(bh) = False '如果编号的前8位不符 Dim max As String Dim idx As Integer Output.Show(1) max = e.DataTable.Compute("Max(出入库单号)","出入库日期 = #" & e.DataRow("出入库日期") & "#") '取得该天的最大编号 If max > "" Then '如果存在最大编号 idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1 Else idx = 1 '否则顺序号等于1 End If Output.Show(2) e.DataRow("出入库单号") = e.DataRow("库存标识") & bh & "-" & Format(idx,"000") Output.Show(3) End If End If End If 此主题相关图片如下:4.jpg