主题：用OpenQQ实现网络环境下的编号

版主，客服端获取最大编号后，新增加编号+1这个代码怎么写啊？

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        If QQClient.Ready = False Then
            PopMessage("QQClient未启动,无法生成编号!","提示",PopIconEnum.Infomation,5)
        Else
            Dim bh As String = Format(e.DataRow("日期"),"yyyyMM")
            Dim rt As String =  QQClient.SendWait(":p" & bh & "p:")
            Dim id As Integer
            If rt > "" Then
                If  Integer.TryParse(rt,id)  Then
                    e.DataRow("编号") = bh & "-" & Format(id,"000")
                Else
                    PopMessage("服务器返回错误信息:" & rt,"提示",PopIconEnum.Infomation,5)
                End If
            Else
                PopMessage("服务器无响应,无法生成编号!","提示",PopIconEnum.Infomation,5)
            End If
        End If
    End If
End If

色老师，如果出现错误，删除了以后，编号就不连续了啊。

如果作废的行单独标识出来，是不是必须要单独加一列状态，通过标记来处理，还有没其他方法来标识呢？

色老师，我单独还有个序号列，怎么处理，能达到同样的效果呢？

色老师，客服端有没办法怎么增加一个判断，当表为空时，编号冲201703-001开始编辑，我把表初始化了，编号都还是不是-001开始编辑的呢？

 

此主题相关图片如下：qq截图20170324094500.png

色老师，11楼的办法行不通，重新启动了还是不对，如果按照11楼八法可行，以后服务器重启了，编码不就断了或重复了？

请教10楼的办法具体应该怎么处理呢？

这个理解到了，有点色老师，有没办法变通一下，把代码放到保存按钮里面，保存后才生成项目编码，这样觉得更科学一点？