| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]定位列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90229) |
| -- 作者：jyh7081 -- 发布时间：2016/9/8 8:23:00 -- [求助]定位列 想点击按钮，定位到列标题字符串中首次出现“AAAA"字符的列。比如（多重表头的列）或列标题为“AAAA1"、"AAAA2"......那就定位到先出现的“AAAA1"。 部分代码不会写，请指教：
For Each t As Table In Tables For Each c As Col In t.cols If c.IsString AndAlso t.FindRow(c.name & " = \'AAAA\'") >= 0 Then End If Next Next |
| -- 作者：有点蓝 -- 发布时间：2016/9/8 8:53:00 -- For Each t As Table In Tables For Each c As Col In t.cols If c.IsString AndAlso c.name.Contains("AAAA") Then End If Next Next
|
| -- 作者：jyh7081 -- 发布时间：2016/9/8 9:55:00 -- 版主，选择怎样写？ For Each t As Table In Tables For Each c As Col In t.cols If c.IsString AndAlso c.name.Contains("AAAA") Then c.Select End If Next Next [此贴子已经被作者于2016/9/8 10:05:48编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2016/9/8 10:08:00 -- 没看懂，想做什么，不用吝啬你的文字 |
| -- 作者：jyh7081 -- 发布时间：2016/9/8 10:46:00 -- 因为列太多，共有几十列，定位某列时要经常拖动下方的滚动条。想把列标题字符串中首次出现“AAAA"字符的列，选择到当前页面以供编辑。 |
| -- 作者：狐狸爸爸 -- 发布时间：2016/9/8 10:55:00 -- Dim t As Table = Tables("表A")
参考： http://www.foxtable.com/webhelp/scr/0569.htm
此外帮助至少有两个类似的例子： http://www.foxtable.com/webhelp/scr/3117.htm http://www.foxtable.com/webhelp/scr/1134.htm
[此贴子已经被作者于2016/9/8 10:58:34编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2016/9/8 10:56:00 -- For Each t As Table In Tables For Each c As Col In t.cols If c.IsString AndAlso c.name.Contains("AAAA") Then t.Select(0,c.Index) Return End If Next Next
|
| -- 作者：jyh7081 -- 发布时间：2016/9/8 11:06:00 -- 提示：Return 语句必须返回值 |
| -- 作者：有点蓝 -- 发布时间：2016/9/8 11:11:00 -- 如果在命令窗口使用，改为Return “” |
| -- 作者：jyh7081 -- 发布时间：2016/9/8 11:12:00 -- 放入按钮可以，谢谢版主！ |