用openQQ实现ACCESS数据库的编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如题，设计QQserver，

此主题相关图片如下：1566170116(1).png

报错“指定的数据库名称错误”

想直接发代码，总报错。

版主好，使用了数据源的名称，还是报同样的错误。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:qqserver.rar

[此贴子已经被作者于2019/8/22 11:54:07编辑过]

此主题相关图片如下：1566445974(1).png

服务端添加数据源后好用了，可是好多表都需要自动生成编号，添加第二个表的编号时，

项目属性中报错“在查询定义的 SELECT 列表中，别名 '纪要编码' 循环引用。”

下载信息 [文件大小：下载次数： ]
点击浏览该文件:qqserver.rar

麻烦您看一下我上传的实例，我用的是access数据源。只有一个表，也就是会议纪要这个表按月自动生成编码的时候，是好用的，也不报错。后来又加了一个表，就开始报错。现在把后加的表的代码删除，也报错。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:desktop.rar

实例中已经不报错了，

项目中报错“您的查询不包含作为聚合函数一部分的特定表达式“客户编码” 。”

我要做自动编号的是一个子表“客户收货地址”，与“客户档案表”用“客户编码”关联。是不是因为这个原因？所以用客户编码生成客户收货地址编码就报错？

此主题相关图片如下：2onoyi_7hgl855wh~y2o8.png

[此贴子已经被作者于2019/8/22 18:57:23编辑过]

麻烦看一下实例。另外每做一个自动编号，都要在服务端全局代码中加一行，并且在服务端的OpenQQ服务端事件ReceivedMessage中加这一段？

Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
    msg = msg.SubString(2, msg.Length - 4)
    If flbhs.ContainsKey(msg) Then '如果存在这个类别的编号
        flbhs(msg) = flbhs(msg) + 1 '将该类别最大编号加1
    Else
        flbhs.Add(msg,1) '如果是这个列表的首次编号,则编号等于1
    End If
    e.ReturnValue = flbhs(msg) '将编号返回给客户端
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:desktop1.rar

[此贴子已经被作者于2019/8/22 19:28:02编辑过]

好用了，感谢！

主题：用openQQ实现ACCESS数据库的编号