主题：用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

 服务器端，自动加1了啊，你客户端拿到最后的值就行，不需要任何操作的啊。

 

http://www.foxtable.com/webhelp/scr/3008.htm

 

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

 

就是这样的，编号也是应该这样控制的。编号不应该能重用，这样不利于管理。

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

 

加一列记录状态咯。或者是修改原来的某一列的值。没有其他方法。

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

 序号列不需要这样做。你可以点击一个按钮，循环每一行生成序号。

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

 

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

做一个功能：给服务器端发送一个命令，服务器接收到后，把编号的值设置为0