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


  共有2995人关注过本帖树形打印复制链接

主题：关联表删除子表数据问题
美女呀，离线，留言给我吧！
第一次学软件
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：67 积分：606 威望：0 精华：0 注册：2020/8/13 15:36:00 		关联表删除子表数据问题  发帖心情 Post By：2020/9/5 0:14:00 [只看该作者]

执行按钮，把关联表的【档案记载1】列中的重复数据删除，删除的时候不是删除的关联数据，而是把子表上相同的数据都删除了，兰老师，该怎么编码？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


[此贴子已经被作者于2020/9/5 0:14:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2020/9/5 8:20:00 [只看该作者]

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.Filter = ""
    t2.RepeatFilter("档案记载1", 2)
    For  i As Integer = t2.Rows.Count - 1 To 0 step - 1 
        t2.Rows(i).Delete
    Next
    
    t2.Filter = ""
End If
[此贴子已经被作者于2020/9/5 8:52:55编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110568 积分：562730 威望：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

 回到顶部
美女呀，离线，留言给我吧！
第一次学软件
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：67 积分：606 威望：0 精华：0 注册：2020/8/13 15:36:00 		  发帖心情 Post By：2020/9/5 14:01:00 [只看该作者]

不起作用啊，有间隔的重复数据，好像删除不了

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

[此贴子已经被作者于2020/9/5 14:02:32编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110568 积分：562730 威望：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)
……
 回到顶部
美女呀，离线，留言给我吧！
第一次学软件
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：67 积分：606 威望：0 精华：0 注册：2020/8/13 15:36:00 		  发帖心情 Post By：2020/9/5 20:39:00 [只看该作者]

蓝老师，如果用查询表和模拟关联，则失去效果，研究了一下午，无结果

传上实例帮我看看

谢谢了，老师

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110568 积分：562730 威望：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
    Next
    t1.RaiseCurrentChanged
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 7 次数据查询