Foxtable(狐表)用户栏目专家坐堂 → [求助]如何顺序获取每一行的内容?


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

主题:[求助]如何顺序获取每一行的内容?

帅哥哟,离线,有人找我吗?
bailang121
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1242 威望:0 精华:0 注册:2015/4/10 15:44:00
[求助]如何顺序获取每一行的内容?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4643 积分:33865 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2015/9/12 11:43:00 [只看该作者]

思路:用静态变量

 回到顶部
帅哥哟,离线,有人找我吗?
bailang121
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1242 威望:0 精华:0 注册:2015/4/10 15:44:00
  发帖心情 Post By:2015/9/12 11:45:00 [只看该作者]

静态变量!图片点击可在新窗口打开查看    那么深奥!~   不懂啊

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4643 积分:33865 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2015/9/12 11:46:00 [只看该作者]

上例子+详细说明

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
bailang121
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1242 威望:0 精华:0 注册:2015/4/10 15:44:00
上例子了~ 麻烦帮看下  发帖心情 Post By:2015/9/13 11:45:00 [只看该作者]

上例子了~ 麻烦帮看下

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
bailang121
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1242 威望:0 精华:0 注册:2015/4/10 15:44:00
  发帖心情 Post By:2015/9/13 12:58:00 [只看该作者]

感谢大红袍老师!

 回到顶部