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


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

主题:删除重复行公式

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望: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 = ""

 

 


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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2011/8/8 12:21:00 [只看该作者]

这个方法学习了,现在问题是在示例中,为了防止导入合并后订单多列或者全部列有没有重复行才删除,有没有办法?如果实在不行,只有增加一列过渡列,把要对比的列字符串加在一起对比再删除冗余值?

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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2011/8/8 12:44:00 [只看该作者]

用表达式列加上狐狸爸爸代码解决问题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目58.rar

[此贴子已经被作者于2011-8-8 17:50:37编辑过]

 回到顶部
总数 13 上一页 1 2