Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] 超强查找替换


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

主题：[分享] 超强查找替换
帅哥哟，离线，有人找我吗？
lsy
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2013/6/19 16:04:00 [只看该作者]

以下是引用ybil在2013-6-19 15:55:00的发言：
俺也頂!提個建議:何不利用數組簡化下一大堆的IF...END IF 呢?另 Tables(s).Rows(i).DataRow.SetError(colstr(j),cmbczz)這句既然只要 不為空都執行,就不用在每個判斷中都出現了吧?

你提的，已经试过，不行啦。俺也不想写那么啰嗦。数组绕几圈，也没见代码少多少。每段If ...End If，大体相同，想起来增加一种操作符，就复制、粘贴。方便的很。

[此贴子已经被作者于2013-6-19 16:07:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nothing
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：517 积分：3383 威望：0 精华：0 注册：2013/1/3 17:08:00 		  发帖心情 Post By：2013/6/19 17:21:00 [只看该作者]

学习
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2013/6/19 17:32:00 [只看该作者]

肯定可以簡化些的,如:

If cmbczf = "等于" Then
       If Eval("""" & s1 & """ = """ & cmbczz & """")   Then
            Tables(s).Rows(i).DataRow.SetError(colstr(j),cmbczz)
            str+ = Tables(s).Rows(i)("_Identify") & ","
        End If
 End If

      
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2013/6/19 17:36:00 [只看该作者]

以下是引用ybil在2013-6-19 17:32:00的发言：
肯定可以簡化些的,如:

If cmbczf = "等于" Then
       If Eval("""" & s1 & """ = """ & cmbczz & """")   Then
            Tables(s).Rows(i).DataRow.SetError(colstr(j),cmbczz)
            str+ = Tables(s).Rows(i)("_Identify") & ","
        End If
 End If

      

非常感谢。值得好好研究。
 回到顶部
帅哥哟，离线，有人找我吗？
小猪鑫鑫
 小大  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00 		  发帖心情 Post By：2013/6/19 18:49:00 [只看该作者]

收藏学习

 回到顶部
帅哥哟，离线，有人找我吗？
夕然
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：619 积分：3656 威望：0 精华：1 注册：2012/6/13 22:00:00 		  发帖心情 Post By：2013/6/19 23:49:00 [只看该作者]

谢谢分享

 回到顶部
帅哥哟，离线，有人找我吗？
北极狼
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：161 积分：1681 威望：0 精华：0 注册：2013/2/7 9:40:00 		  发帖心情 Post By：2013/6/20 0:31:00 [只看该作者]

顶！！！

 回到顶部
帅哥哟，离线，有人找我吗？
wqb1102
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：2013/6/20 12:02:00 [只看该作者]

多谢分享！
在数据较多时进行筛选或取消时，速度较慢，可能与进行标注有关，是否筛选结果不用标注更好！
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2013/6/20 12:04:00 [只看该作者]

以下是引用wqb1102在2013-6-20 12:02:00的发言：
多谢分享！
在数据较多时进行筛选或取消时，速度较慢，可能与进行标注有关，是否筛选结果不用标注更好！

取消标注很容易，相应的代码删除就行了。
 回到顶部
帅哥哟，离线，有人找我吗？
wqb1102
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：2013/6/20 12:34:00 [只看该作者]

Tables(s).Rows(i).DataRow.SetError(colstr(j),cmbczz)
这一句吗
 回到顶部
总数 43 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询