- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用OpenQQ实现网络环境下的编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98073)
-- 发布时间：2017/3/23 16:18:00
-- 用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
-- 发布时间：2017/3/23 17:03:00
--
服务器端，自动加1了啊，你客户端拿到最后的值就行，不需要任何操作的啊。
http://www.foxtable.com/webhelp/scr/3008.htm
-- 发布时间：2017/3/23 17:08:00
--
色老师，如果出现错误，删除了以后，编号就不连续了啊。
-- 发布时间：2017/3/23 17:20:00
--
色老师，如果出现错误，删除了以后，编号就不连续了啊。
就是这样的，编号也是应该这样控制的。编号不应该能重用，这样不利于管理。
-- 发布时间：2017/3/23 17:25:00
--
如果作废的行单独标识出来，是不是必须要单独加一列状态，通过标记来处理，还有没其他方法来标识呢？
-- 发布时间：2017/3/23 17:39:00
--
如果作废的行单独标识出来，是不是必须要单独加一列状态，通过标记来处理，还有没其他方法来标识呢？
加一列记录状态咯。或者是修改原来的某一列的值。没有其他方法。
-- 发布时间：2017/3/23 20:43:00
--
色老师，我单独还有个序号列，怎么处理，能达到同样的效果呢？
-- 发布时间：2017/3/23 22:20:00
--
序号列不需要这样做。你可以点击一个按钮，循环每一行生成序号。
-- 发布时间：2017/3/24 9:47:00
--
序号列不需要这样做。你可以点击一个按钮，循环每一行生成序号。
色老师，客服端有没办法怎么增加一个判断，当表为空时，编号冲201703-001开始编辑，我把表初始化了，编号都还是不是-001开始编辑的呢？
此主题相关图片如下：qq截图20170324094500.png
-- 发布时间：2017/3/24 10:08:00
--
做一个功能：给服务器端发送一个命令，服务器接收到后，把编号的值设置为0