主题：自动编号

老师，

 

我在菜单中写了下面一段代码，帮我看看逻辑上有什么问题。逻辑一多就犯糊涂！

 

我想实现的是在执行动态里录入数据，当找到改行判断有无生产数量或是否为0，如为0直接写数量，如有数据就加行再写数量。同时给每个动态自动给出“出库单编号”。出库单编号编码后三位按每天从1开始重复。

 

现在其他都没问题，就是编号出不来。

 

 If dr2.IsNull("生产数量") OrElse dr2("生产数量") = 0 Then
            For i As Integer = 0 To Cols1.Length - 1
                dr2(Cols2(i)) = sheet1(dr1,i).Text
                Dim bh As String = "XS" & Format(d,"yyMMdd")'生成编号的前缀
                Dim max As String
                Dim idx As Integer
                If dr2("出库单编号").StartsWith(bh) = True '如果单据编号前缀相符
                    max = DataTables("执行动态").Compute("Max(出库单编号)",bh) '取得该天最大编号
                    If max > "" Then '如果存在最大单据编号
                        idx = CInt(max.Substring(11,3)) + 1 '获得最大单据编号的后三位顺序号,并加1
                    Else
                        idx = 1 '顺序号等于1
                    End If
                    dr2("出库单编号") = bh & Format(idx,"000")
                    dr2("交付日期") = Date.Today
                End If
            Next
            Dim dr As DataRow = DataTables("销售清单").AddNew()
            dr("计划编号") = dr2("计划编号")
            dr("生产数量") =dr2("生产数量")
            dr("出库单编号") =dr2("出库单编号")
            Dim dr3 As DataRow = dr2.GetParentRow("订单")
            If  dr3 IsNot Nothing Then
                dr("客户简称") = dr3("客户简称")
                dr("车型") = dr3("车型")
                dr("部件名称") = dr3("部件名称")
                dr("图号") = dr3("图号")
            End If
        Else
            systemready = False
            Dim drr As DataRow = DataTables("执行动态").AddNew()
            For j As Integer = 0 To Cols1.Length - 1
                drr(Cols2(j)) = sheet1(dr1,j).Text
                '     drr("出库单编号") = "XS" & Format(d,"yyMMdd")' & Format(idx,"00")
                Dim bh As String = "XS" & Format(d,"yyMMdd")'生成编号的前缀
                Dim max As String
                Dim idx As Integer
                If drr("出库单编号").StartsWith(bh) = True '如果单据编号前缀相符
                    max = DataTables("执行动态").Compute("Max(出库单编号)",bh) '取得该天最大编号
                    If max > "" Then '如果存在最大单据编号
                        idx = CInt(max.Substring(11,3)) + 1 '获得最大单据编号的后三位顺序号,并加1
                    Else
                        idx = 1 '否则顺序号等于1
                    End If
                    drr("出库单编号") = bh & Format(idx,"000")
                    drr("交付日期") = Date.Today
                End If
            Next
            Dim drd As DataRow = DataTables("销售清单").AddNew()
            drd("计划编号") = drr("计划编号")
            drd("生产数量") =drr("生产数量")
            drd("出库单编号") =drr("出库单编号")
            Dim dr4 As DataRow = drr.GetParentRow("订单")
            If  dr4 IsNot Nothing Then
                drd("客户简称") = dr4("客户简称")
                drd("车型") = dr4("车型")
                drd("部件名称") = dr4("部件名称")
                drd("图号") = dr4("图号")
            End If
            systemReady = True
        End If
    End If

就是把 11改成 bh.length 吗？

 

还是没有变化啊。

 

 

例子已上传

是这么个意思。

 

可是出错：未找到[XS150328]

 

还是有哪里有问题吧？

老师，我发现只要加了下面这段代码就出错。是不是这段代码有什么问题？

 Dim bh As String = "XS" & Format(d,"yyMMdd")'生成编号的前缀
Dim max As String
Dim idx As Integer
max = DataTables("执行动态").Compute("Max(出库单编号)","出库单编号 like '" & bh & "%'") '取得该天最大编号
If max > "" Then '如果存在最大单据编号
idx = CInt(max.Substring(bh.Length,3)) + 1 '获得最大单据编号的后三位顺序号,并加1
Else
idx = 1 '顺序号等于1
End If
dr2("出库单编号") = bh & Format(idx,"000")

可是出错：未找到[XS150329]

是的，我也一直找不出问题来。

您在我给的的例子上试了一下吧。拜托啦！

我在代码中加了诊断点：

 

For dr1 As Integer = 1 To Sheet1.Rows.Count -1
    Dim dr2 As DataRow = DataTables("执行动态").Find("计划编号 = '" & sheet1(dr1,0).Text & "'")
    If dr2 Is Nothing Then '如果不存在该计划编号的产品
        MessageBox.Show("没有" & sheet1(dr1,0).Text & "的计划编号!", "提示")
    Else
MessageBox.Show(1)
        If dr2.IsNull("生产数量") OrElse dr2("生产数量") = 0 Then
            For i As Integer = 0 To Cols1.Length - 1
                dr2(Cols2(i)) = sheet1(dr1,i).Text
            Next
MessageBox.Show(2)
            Dim bh As String = "XS" & Format(d,"yyMMdd")'生成编号的前缀
            Dim max As String
            Dim idx As Integer
            max = DataTables("执行动态").Compute("Max(出库单编号)",bh) '取得该天最大编号
            If max > "" Then '如果存在最大单据编号
                idx = CInt(max.Substring(bh.Length,3)) + 1 '获得最大单据编号的后三位顺序号,并加1
            Else
                idx = 1 '顺序号等于1
            End If
            dr2("出库单编号") = bh & Format(idx,"000")
            dr2("交付日期") = Date.Today
MessageBox.Show(3)

此主题相关图片如下：spximage1.jpg

不好意思，没注意看。谢谢啦！