Foxtable(狐表)用户栏目专家坐堂 → 删除重复行公式


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

主题:删除重复行公式

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/7 18:52:00 [显示全部帖子]

先用菜单筛选出冗余行,再删除之即可。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/8 10:26:00 [显示全部帖子]

怎么判断是否重复啊?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/8 10:55:00 [显示全部帖子]

不好处理,即使能处理,也是效率极差的处理。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/8 11:40:00 [显示全部帖子]

这个好办的,例如删除第一列的冗余值。

 

Dim t As Table =  Tables("表A")
t.Select(t.Rowsel,t.cols("姓名").Index)
syscmd.Filter.ShowRedundantValues
For i As Integer = t.Rows.Count -1 To 0 Step -1
    t.rows(i).Delete
Next
t.filter = ""

 

 


 回到顶部