| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 全表查找功能 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145724) |
| -- 作者：yindery -- 发布时间：2020/2/5 19:39:00 -- 全表查找功能 如何查找到内容，突出显示当前行 Dim s1 As String = "查找内容" For Each c As Col In CurrentTable.Cols For Each r As Row In CurrentTable.Rows If r(c.Name) = s1 Then 突出显示当前行 Next Next |
| -- 作者：有点蓝 -- 发布时间：2020/2/6 10:57:00 -- Dim s1 As String = "查找内容" For Each c As Col In CurrentTable.Cols For Each r As Row In CurrentTable.Rows If r(c.Name) = s1 Then CurrentTable.position = r.index return end if Next Next [此贴子已经被作者于2020/2/6 10:57:08编辑过]
|
| -- 作者：wangyaoshi -- 发布时间：2020/7/3 9:55:00 --
[此贴子已经被作者于2020/7/20 19:59:43编辑过]
|
| -- 作者：wangyaoshi -- 发布时间：2020/7/3 9:56:00 --
[此贴子已经被作者于2020/7/20 19:59:59编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/7/3 10:00:00 -- 以下是引用wangyaoshi在2020/7/3 9:56:00的发言： http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
这个怎么用 |
| -- 作者：wangyaoshi -- 发布时间：2020/7/15 17:22:00 --
[此贴子已经被作者于2020/7/20 20:00:19编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/7/15 17:36:00 -- 如果要按行查找调换一下位置 For Each r As Row In CurrentTable.Rows For Each c As Col In CurrentTable.Cols |
| -- 作者：wangyaoshi -- 发布时间：2020/7/18 12:23:00 -- Dim s1 As String = "查找内容" For Each c As Col In CurrentTable.Cols For Each r As Row In CurrentTable.Rows If r(c.Name) = s1 Then CurrentTable.position = r.index return end if Next Next 请问如何实现逐个显示，还有如何实现模糊查找。 [此贴子已经被作者于2020/7/18 12:33:07编辑过]
|
| -- 作者：wangyaoshi -- 发布时间：2020/7/18 12:42:00 -- [此贴子已经被作者于2020/7/20 20:01:16编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/7/18 13:49:00 -- 记录一下查找位置 Dim Val As String = RibbonTabs("Common").Groups("find").Items("findtext").Text vars("p") = 0 For Each c As Col In CurrentTable.Cols For i as integer = vars("p") to CurrentTable.Rows.count - 1 dim r as row = CurrentTable.Rows(i) If cstr(r(c.Name)) = Val Then vars("p") = r.index CurrentTable.position = r.index return End If Next Next |