[求助]跨表引用继承更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]跨表引用继承更新

共有6408人关注过本帖树形打印复制链接主题：[求助]跨表引用继承更新

ntqhj

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00

Post By：2022/3/17 16:25:00 [只看该作者]

A台电脑修改，B电脑可以同步更新，B电脑修改，A电脑不能完成同步更新，这是啥问题啊？另外，好像每修改一条记录就要点下保存按钮，才能完成更新，多条记录修改后，再点保存按钮只能更新最后修改的记录

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/17 16:32:00 [只看该作者]

帮助的仅做了一行的示例，如果更改了多行。改为遍历所有行处理即可。

或者到AfterSaveDataRow事件处理，每保存一行就发送一条消息

ntqhj

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00

Post By：2022/3/18 15:04:00 [只看该作者]

我的应用代码大多都是套用的，用遍历的代码老师有空写下吗？（主表加子表的形式使用即时同步）

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/18 15:11:00 [只看该作者]

遍历参考：http://www.foxtable.com/webhelp/topics/1438.htm

比如：

For Each r As Row In Tables("订单").Rows

if r,datarow.rowstate = DataRowState.Added
发送新增行的消息

elseif r,datarow.rowstate = DataRowState.Modified
发送修改行的消息

elseif.....
Next

如果是主表加子表，只发送主表的消息即可，子表根据主表的编号重新加载数据

ntqhj

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：438 积分：2664 威望：0 精华：0 注册：2018/1/15 13:54:00

Post By：2022/3/22 13:19:00 [只看该作者]

For Each r As Row In Tables("表A").rows
    Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
    r.Save()
    '一定要在保存后合成信息,因为新增行的主键在保存后才生成
    Dim msg As String = p & "表A" & "#" & r("_Identify")
    For Each bd As QQBuddy In QQClient.Buddies
        If bd.Online Then
            QQClient.Send(bd.name, msg)
        End If
    Next
Next

可以实现功能

有报错：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：

详细错误信息：

不能使用 ''；文件已在使用中。

问题在哪里？如何修改？

[此贴子已经被作者于2022/3/22 13:20:05编辑过]