Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求教]代码优化


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

主题：[求教]代码优化
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/30 11:50:00 [显示全部帖子]

1、参考 http://www.foxtable.com/webhelp/scr/1909.htm

 

2、循环每一行，比较，清空，如

 

Dim t As Table = Tables("表A")
Dim pr As Row = Nothing
For Each r As Row In t.Rows
    If pr IsNot Nothing AndAlso r("第一列") = pr("第一列") AndAlso r("第二列") = pr("第二列") Then
        r("第一列") = Nothing
        r("第二列") = Nothing
    End If
    pr = r
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/4 16:50:00 [显示全部帖子]

以下是引用hcfbehero在2019/6/4 16:44:00的发言：
甜版所做第2点，在只有2行及以下重复的话，就能实现，但要是三行级以上重复的话，就只会两行两行比，请甜版解决三行及以上重复的

 

不理解你的问题。上传具体实例，说明你要做到什么效果。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/5 15:27:00 [显示全部帖子]

以下是引用hcfbehero在2019/6/5 15:02:00的发言：
不好意思了老师，我在这个表里新加了DOUBLE列，在进行删除重复行时，系统提示，新加列为只读，怎么解决呢，老师

 

赋值的时候，判断一下列是不是表达式列

 

        For Each c As Col In t1.Cols
If c.datacol.Expression = "" then
            nr1(c.name) = r1(c.name)
End If
        Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询