以文本方式查看主题 -  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=125771)

--  作者：hahahehe21 --  发布时间：2018/10/6 18:17:00 --  [求助]即时同步报错 我把这段代码放到DataRowAdded和DataColChanged事件里，产品资料的数据增加和修改后客户端实现了即时同步，但是会报错 此主题相关图片如下：tim图片20181006180541.png ， 此主题相关图片如下：tim截图20181006181431.png 即时同步代码  For Each r As Row In Tables("产品资料").rows     If r.DataRow.RowState <> DataRowState.Unchanged Then         Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")         r.Save()         \'一定要在保存后合成信息,因为新增行的主键在保存后才生成         Dim msg As String = p & "产品资料" & "#" & r("_Identify")         For Each bd As QQBuddy In QQClient.Buddies             If bd.Online Then                 QQClient.Send(bd.name, msg)             End If         Next     End If Next

--  作者：hahahehe21 --  发布时间：2018/10/6 18:17:00 --   access数据库

--  作者：有点蓝 --  发布时间：2018/10/7 8:54:00 --   首先不应该在这2个事件里循环所有行，下面这样就可以了 If e.DataRow.RowState <> DataRowState.Unchanged Then     Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")      e.DataRow.Save()     \'一定要在保存后合成信息,因为新增行的主键在保存后才生成     Dim msg As String = p & "产品资料" & "#" &  e.DataRow("_Identify")     For Each bd As QQBuddy In QQClient.Buddies         If bd.Online Then             QQClient.Send(bd.name, msg)         End If     Next End If 其次出错提示应该是数据库文件冲突，如果使用的客户端比较多，建议改为SqlServer