主题：用OpenQQ实现网络环境下的编号

 Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
    '格式:f|表名|前缀|f:
    '拆分信息
    Dim xh As Integer '序号
    Dim Values() As String
    Values = msg.split("|")
    Dim nm As String= values(1) '定义表名
    Dim pf As String= values(2) '定义前缀
    If pf<>"" AndAlso nm<>"" Then
        Dim dr As DataRow
        dr = DataTables("编号").Find("表名='" & nm & "' AndAlso 前缀= '" & pf & "'" ,"顺序号 desc ")
        If dr IsNot Nothing Then
            xh=dr("顺序号")+1  '取得原序号+1
            dr("顺序号")=xh '更新序号
        Else
            dr=DataTables("编号").AddNew
            dr("表名")= nm
            dr("前缀")= pf
            dr("顺序号")=1
            xh=1
        End If
        msg=xh        
    Else
        msg= "表名或前缀为空,请核对"
    End If
    e.ReturnValue = msg '将编号返回给客户端
End If


老师，这样写有bug吗？