主题：自动编号

可是出错：未找到[XS150329]

 不可能报错。

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

 看10楼

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

 不会报错。

我在代码中加了诊断点：

 

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

 代码根本就不是你这样写的好吗？你有看我发给你的代码吗？

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