Foxtable(狐表)用户栏目专家坐堂 → 这个:f是什么意思


  共有3157人关注过本帖树形打印复制链接

主题:这个:f是什么意思

帅哥,在线噢!
zhuxinhui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2035 积分:6610 威望:0 精华:0 注册:2017/11/8 17:37:00
这个:f是什么意思  发帖心情 Post By:2023/12/6 10:43:00 [只看该作者]

Dim rt As String =  QQClient.SendWait(":f" & e.DataTable.Name & "f:")

e.DataRow("编号") = rt

现在搞差个OPENQQ编码生成,看不懂里面的代码:
Dim rt As String =  QQClient.SendWait(":f" & e.DataTable.Name & "f:")
是什么意思


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/6 10:55:00 [只看该作者]

这个是自己定义的一个标记,用来区分这个消息是做什么的,比如接收的信息是:f开头,并且是f:结尾的就是用来生成编号的,注意看服务端是怎么判断

3、在服务端的OpenQQ服务端事件ReceivedMessage中编写代码:

Dim msg As String = e.Message
If
 msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then


 回到顶部
帅哥,在线噢!
zhuxinhui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2035 积分:6610 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2023/12/6 14:13:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:openqq编码.rar

这些代码看不懂,不知哪出错了,入库表增加行时生成不了单据编码?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/6 14:31:00 [只看该作者]

改了全局代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:财务管理服务器.zip



 回到顶部
帅哥,在线噢!
zhuxinhui
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2035 积分:6610 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2023/12/6 14:59:00 [只看该作者]

可以了,多谢,哪很难消化这些代码

 回到顶部
帅哥,在线噢!
zhuxinhui
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2035 积分:6610 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2023/12/7 17:47:00 [只看该作者]

现在出现了一个问题,就是客户端一会不动时就生成不了编号,要生新登录才行

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/7 20:22:00 [只看该作者]

发消息前判断一下OpenQQ是不是掉线了,如果是就登录一下

 回到顶部
帅哥,在线噢!
zhuxinhui
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2035 积分:6610 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2023/12/10 10:48:00 [只看该作者]

If QQClient.Start() = False Then
    Forms("登录窗口").Open()
Else 
    Dim rt As String = QQClient.SendWait(":f" & e.DataTable.Name & "f:")'''''''''''''''''''''增加行时,向服务器申请编号
    e.DataRow("立帐编码") = rt 
End If

这样行不行,

还有就是如何避免OPENQQ不掉线呢

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/10 20:44:00 [只看该作者]

保证服务器和客户端之间网络稳定

 回到顶部
帅哥,在线噢!
zhuxinhui
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2035 积分:6610 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2023/12/11 10:17:00 [只看该作者]

经常出现服务器断网,这个问题怎样处理?

 回到顶部
总数 16 1 2 下一页