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吗?