- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何顺序获取每一行的内容？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74493)
-- 发布时间：2015/9/12 11:34:00
-- [求助]如何顺序获取每一行的内容？
我想通过一个快捷键实现~ 按键读取表A中第一行的内容~再次重复按键读取第二行内容~再次点击即第三行内容 依次类推至判断该行无内容后，弹出提示框显示：已完成
Dim m As object = args(0)
Select Case m.WParam
Case 100
Sendkeys.Send(Tables("表A").Current("第一行"))
End Select
通过这样来实现快捷按键~ 那么顺序提取表的每一行内容是怎么写呢？ 哪位大神帮助一下~
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
项目例子上了~ 大神帮助下~
[此贴子已经被作者于2015/9/13 11:44:16编辑过]
-- 发布时间：2015/9/12 11:43:00
--
思路：用静态变量
-- 发布时间：2015/9/12 11:45:00
--
静态变量！
那么深奥！~ 不懂啊
-- 发布时间：2015/9/12 11:46:00
--
上例子+详细说明
-- 发布时间：2015/9/12 12:34:00
--
全局变量http://www.foxtable.com/help/topics/1450.htm
var变量http://www.foxtable.com/help/topics/0325.htm
静态变量http://www.foxtable.com/help/topics/1061.htm
[此贴子已经被作者于2015/9/12 14:24:04编辑过]
-- 发布时间：2015/9/13 11:45:00
-- 上例子了~ 麻烦帮看下
上例子了~ 麻烦帮看下
-- 发布时间：2015/9/13 11:51:00
--
static n As Integer = 0
Dim m As object = args(0)
Select Case m.WParam
Case 100
If n >= Tables("表A").Rows.count - 1 Then
msgbox("已完成")
n = 0
Else
Sendkeys.Send(Tables("表A").Rows(n)("第一列"))
n += 1
End If
End Select
-- 发布时间：2015/9/13 12:58:00
--
感谢大红袍老师！