- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 用OpenQQ实现网络环境下的编号的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147700)
-- 发布时间：2020/3/22 12:51:00
-- 用OpenQQ实现网络环境下的编号的问题
在订单编辑窗口输入订单日期后，1、出现点击窗口没反应，需要迟十秒左右，才会跳出日期内置输入器进行编辑；2、输入订单日期后，离开点入其它Textbox进行其它录入时，会返回错误信息1或2或3等之类的数字，如截图。 3、点提交订单后，相当于保存，本行订单编号单元格没有相应的输入编号。相关截图和代码如下，请问问题是出在哪里啊？怎么处理呢？
-- 发布时间：2020/3/22 12:53:00
--
此主题相关图片如下：万能五笔截图_20200322124208.png
客户端的设计
选择客户端项目的订单表，在其DataColChanged事件中加上代码：
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
-- 发布时间：2020/3/22 22:01:00
--
实例发上来测试
-- 发布时间：2020/3/22 23:32:00
-- 回复：（有点蓝）实例发上来测试
就是测试后出现问题，才这里反馈的啊，代码按照帮助说明来写的
-- 发布时间：2020/3/23 8:39:00
--
把您测试有问题的实例文件发上来，我们测试一下
-- 发布时间：2020/3/23 11:56:00
-- 回复：（有点蓝）把您测试有问题的实例文件发上来，我...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:openqq服务端.foxdb |
-- 发布时间：2020/3/23 11:57:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:客户端.foxdb |
-- 发布时间：2020/3/23 11:58:00
-- 回复：（有点蓝）把您测试有问题的实例文件发上来，我...
我发了一个测试的，麻烦你这边看看，目前还出现登录用户名错误信息了，也不知道哪里又出现问题了
-- 发布时间：2020/3/23 14:02:00
-- 回复：（有点蓝）把您测试有问题的实例文件发上来，我...
实例已经发过去了，麻烦你这边看看是什么 情况啊
-- 发布时间：2020/3/23 14:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题.zip |