- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 没有易表中"全表查找/替换"功能,不方便 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8207)
-- 发布时间：2010/9/17 15:42:00
-- 没有易表中"全表查找/替换"功能,不方便
FOXTABLE中的筛选和查找,都必须指定列,这个虽然精确,但有时也很麻烦,而易表中的"全表查找/替换"功能就很好.
-- 发布时间：2010/9/17 15:53:00
--
呵呵，自己做一个吧，很简单，7行代码：
Dim s1 As String = "查找内容"
Dim s2 As String = "替换内容"
For Each c As Col In CurrentTable.Cols
For Each r As Row In CurrentTable.Rows
If r(c.Name) = s1 Then r(c.Name) = s2
Next
Next
-- 发布时间：2010/9/17 17:02:00
--
这个代码是写在菜单中的么?我试了一下,运行是出现错误.
-- 发布时间：2010/9/17 17:09:00
--
在命令窗口执行就行。
当然你可以设计一个窗口，一个文本框输入查找内容，一个文本框输入替换内容，就像这个：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目82.table |
-- 发布时间：2020/11/30 21:10:00
--
如果其中有一列是date格式，会出现错误，请问怎么解决啊？
-- 发布时间：2020/11/30 21:43:00
--
Dim s1 As String = "查找内容"
Dim s2 As String = "替换内容"
For Each c As Col In CurrentTable.Cols
if c.IsDate then continue for
For Each r As Row In CurrentTable.Rows
If r(c.Name) = s1 Then r(c.Name) = s2
Next
Next