主题：自动编号

老师，

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

我想实现的是在执行动态里录入数据，当找到改行判断有无生产数量或是否为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