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

共有2315人关注过本帖树形打印复制链接主题：关联

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

关联

Post By：2018/9/19 17:08:00 [显示全部帖子]

我今天突然发现我有个表的关联失效了,一个表有8个关联,如果重新设置的话,工作量好大啊,因为还涉及到关联公式

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点甜）你说的关联表失效，具体指什么？截图... 发帖心情

Post By：2018/9/20 10:29:00 [显示全部帖子]

没有什么提示,只是同一个联结,选择不同记录后有的是对的,有的是错的,我昨天又试着做了一个 用Table控件模拟关联表居然也是这样有对有错的出现

[此贴子已经被作者于2018/9/20 10:30:04编辑过]

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点甜）以下是引用lfz123在2018/9/20 10:29:... 发帖心情

Post By：2018/9/20 10:39:00 [显示全部帖子]

我重新做个联结,还是同样呈现这样的结果,应该和代码没有关系吧,代码是我模拟窗口,我的意思就是不模拟窗口也会出现这样的结果,我发截图怎么发不上去的,是在添加附件上然后上传附件就可以了吗

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点甜）以下是引用lfz123在2018/9/20 10:39:... 发帖心情

Post By：2018/9/20 10:58:00 [显示全部帖子]

请老师看下截图,关键是一个联结里面的大部分是正确的,个别不正确,而且还不止这一个联结设置,其他的联结设置也会有这样的问题出现呢

此主题相关图片如下：关联正确.png

此主题相关图片如下：关联不正确.png

[此贴子已经被作者于2018/9/20 11:01:33编辑过]

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点甜）1、你设置两表使用什么列关联？设置截... 发帖心情

Post By：2018/9/20 11:27:00 [显示全部帖子]

我没有开过其他窗口喔

此主题相关图片如下：关联设置.png

[此贴子已经被作者于2018/9/20 11:28:13编辑过]

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点甜）联系QQ客服远程测试一下。 发帖心情

Post By：2018/9/20 16:38:00 [显示全部帖子]

老师,客服帮我找出问题了,我分享下:

工程数据改变行。会导致子表流水账刷新数据，流水账刷新数据会导致子表审计fa piao刷新数据触发currentchanged，然后这个事件又改变了工程数据的行，从而形成循环

代码这样改改

If e.Table.Name = "审计fa piao" Then '这个判断目的是只能主表触发，关联表不会触发

    If e.Table.Current Is Nothing Then '如果Current为Nothing
        Return '则返回
    End If
    Dim wz As Integer
    Dim dr As DataRow
    dr = DataTables("工程数据").Find("[工程名称] = '" & e.Table.Current("工程名称") & "'")
    If dr IsNot Nothing Then
        wz = Tables("工程数据").FindRow(dr)
        If wz >= 0 Then
            Tables("工程数据").Position = wz
        End If
    End If
End If

[此贴子已经被作者于2018/9/20 16:40:53编辑过]

下一主题 >> << 上一主题

主题：关联