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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联表删除子表数据问题

共有2989人关注过本帖树形打印复制链接主题：关联表删除子表数据问题

有点蓝

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

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

Post By：2020/9/5 8:40:00 [显示全部帖子]

For i As Integer = t2.Rows.Count - 1 To 0 step -1

有点蓝

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

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

Post By：2020/9/5 14:21:00 [显示全部帖子]

加个排序：

……

t2.Filter = ""

t2.sort = "档案记载1"

t2.RepeatFilter("档案记载1", 2)

……

有点蓝

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

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

Post By：2020/9/6 19:50:00 [显示全部帖子]

这种情况要保留筛选条件，不要使用：t2.Filter = ""

Dim t1 As Table = e.Form.Controls("Table1").Table

Dim t2 As Table = e.Form.Controls("Table2").Table

If t1.Current IsNot Nothing Then

t2.sort = "出生年月"

t2.RepeatFilter("出生年月", 2)

For i As Integer = t2.Rows.Count - 1 To 0 Step - 1

t2.Rows(i).Delete

t1.RaiseCurrentChanged

End If

主题：关联表删除子表数据问题