关于openqq的即时同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助，A登录后的新增或修改的第一条内容B处无法同步，但已写入数据库，刷新后正常。

在B处

接收消息事件，加入msgbox(e.message)后

就完全正常，不会发生这个问题了。。=。=||

求助啊。。。。。。。。。。。。

打开项目的时候，不要按住ctrl，不然任何代码都不会执行。

其余情况不会有你的问题。

If msg.StartsWith("A#") Then '表示增加了行

Dim pts() As String = msg.Split("#")

If pts.Length = 3 Then

DataTables(pts(1)).AppendLoad("[_Identify] = " & pts(2)) '追载新增加的行.

End If

PopMessage("收到","管理员消息")

End If

试了一下这样，收到了消息，但是B处仍然没有自动刷新，再添加一条新的B处就显示了，但是第一条还是没有

按钮是先新增一个条目

Dim r As Row = Tables("样车参数").Current

If e.Form.Controls("DateTimePicker1") Is Nothing Then

MessageBox.Show("请填写入库时间!", "提示")

Return

End If

If e.Form.Controls("TextBox2").text ="" Then

MessageBox.Show("请完善车辆信息!", "提示")

Return

End If

'''''''''''样车编号'''''''''''''''''''

Dim dt As Date = e.Form.Controls("DateTimePicker1").value

Dim bh As String = Format(dt,"yyyyMMdd") '取得车辆编号的8位前缀

If r("车辆编号").StartsWith(bh) = False '如果车辆编号的前8位不符

Dim max As String

Dim idx As Integer

max = DataTables("样车参数").SQLCompute("Max(车辆编号)","入库时间 = #" & dt & "# And [_Identify] <> " & r("_Identify")) '取得该天的最大车辆编号

If max > "" Then '如果存在最大车辆编号

idx = CInt(max.Substring(9,3)) + 1 '获得最大车辆编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

r("车辆编号") = bh & "-" & Format(idx,"000")

End If

'''''''''''''''''''''''''''''''''''''''

DataTables("样车参数").save()

Dim msg As String = "A#" & "样车参数" & "#" & e.Form.Controls("r").text

For Each bd As QQBuddy In QQClient.Buddies

If bd.Online Then

QQClient.Send(bd.name, msg)

End If

e.Form.close()

弹出

msgbox(e.message)

弹出多少次，就执行多少次代码

添加第一条弹出来是A#xxxxx#0

第二条就对了是A#xxxx#80

=.=||

Dim msg As String = "A#" & "样车参数" & "#" & e.Form.Controls("r").text

改成，试试

Dim msg As String = "A#" & "样车参数" & "#" & r("_Identify")

主题：关于openqq的即时同步