- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助版主，在关联表内改动数据并同步的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119090)
-- 发布时间：2018/5/17 14:40:00
-- 求助版主，在关联表内改动数据并同步的问题
http://www.foxtable.com/webhelp/index.htm?page=1775.htm
我参照这里做了用OpenQQ即时同步数据，目前在表格中直接更改数据可以做到即时同步，但是当在关联表里更改数据的时候，数据无法同步，并且其他客户端会报错“不存在XXXX.XXXX(此处应该是对应关联表的名称）的DATATABLE”，请问版主应该怎么修改代码？
-- 发布时间：2018/5/17 14:47:00
--
修改代码
Dim msg As String = e.Message
If msg.StartsWith("U#") Then \'表示修改了某行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
Dim dr As DataRow = Tables(pts(1)).DataTable.Find("[_Identify] = " & pts(2))
If dr IsNot Nothing Then
dr.Load() \'重新加载此行
End If
End If
ElseIf msg.StartsWith("A#") Then \'表示增加了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
Tables(pts(1)).DataTable.AppendLoad("[_Identify] = " & pts(2)) \'追载新增加的行.
End If
ElseIf msg.StartsWith("D#") Then \'表示删除了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
Tables(pts(1)).DataTable.RemoveFor("[_Identify] = " & pts(2)) \'移除行
End If
End If
-- 发布时间：2018/5/17 15:40:00
--
感谢版主，我试试
-- 发布时间：2018/5/17 16:01:00
--
版主大大，又要
此主题相关图片如下：1526543957(1).png
麻烦你了
按你的代码改了，但是在保存代码的时候报错了，如图，请问是啥问题？
-- 发布时间：2018/5/17 16:10:00
--
贴出你本来写的代码。
-- 发布时间：2018/5/17 16:22:00
--
不好意思，发现问题了
谢谢版主