我把自己做的软件作为客户端使用，再用帮助中的例子做为服务端就可以了吗？当然可以需要根据情况修改。

这里需要用的包括网络状态下编号。

可以。

以下是帮助中的代码，直接把代码复制到相应事件中时提示错误，例子是编写时发生的了错误还是其他原因？错误发生的原因是标黄色的部分。

Public flbhs As New Dictionary(of String,Integer)

2、在服务端的AfterOpenProjet事件中编写代码：

Dim dt As DataTable
Dim cmd As New SQLCo mmand
cmd.Conne ction Name = "数据源名称"
cmd.Comm andText = "Select 类别, Max(编号) As 编号 Fr om {产品} Group By 类别"
dt = cmd.Execut eReader
gcbhs.Clear()
For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("类别") \'编号前缀
    Dim bh As String =  dr("编号")
    Dim id As Integer
    If bh.Length = 5 Then
        bh = bh.SubString(3)
        If Integer.TryParse(bh,id) Then
            gcbhs.Add(qz, id)
        End If
    End If
Next

上述代码在启动项目后，用SQL语句提取每个类别的最大编号，将其整数部分存储在字典flbhs中。

3、在服务端的OpenQQ服务端事件Receive dMessage中编写代码：

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

帮助文档编写错误的缘故。

统一为一个名字即可。全部改成 flbhs

 做一个编号表，一种编号类型，就添加一行数据，然后把这个表代替帮助文档里的产品表。

不是叫你做一个编号表了吗？所有的的编号，都在这个表里面记录，一种编号，一行数据。

类似

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