主题：自动编号问题

Select e.DataCol.Name

    Case "销售日期","代码"

        If e.DataRow.IsNull("销售日期") OrElse e.DataRow.IsNull("代码") Then

            e.DataRow("销售单编号") = Nothing

        Else

            If QQClient.Ready = False Then

                PopMessage("QQClient未启动,无法生成编号!","提示",PopIconEnum.Infomation,5)

            Else

                Dim bh As String = e.DataRow("代码") & "-" &  Format(e.DataRow("销售日期"),"yyyyMM")

               

                Dim rt As String =  QQClient.SendWait(":g" & bh & "g:")

                Dim id As Integer

                If rt > "" Then

                    If  Integer.TryParse(rt,id)  Then

                        e.DataRow("销售单编号") = bh & "-" & Format(id,"0000")

                    Else

                        PopMessage("服务器返回错误信息:" & rt,"提示",PopIconEnum.Infomation,5)

                    End If

                Else

                    PopMessage("服务器无响应,无法生成编号!","提示",PopIconEnum.Infomation,5)

                End If

            End If

        End If

End Select

出现如下：  生成的编号和已有的编号完全重复，是什么原因？  难道 是我的QQClient 有问题？

另外一张表 同样的 代码，只是编号的前缀不一样，就不会出现这个问题。

没有出现错误，不知道怎么调试。

求解？