[求助]光标怎样才能移动到指定行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]光标怎样才能移动到指定行？

共有22619人关注过本帖树形打印复制链接主题：[求助]光标怎样才能移动到指定行？

t_fs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

[求助]光标怎样才能移动到指定行？ 发帖心情

Post By：2008/9/30 15:32:00 [显示全部帖子]

       光标怎样才能移动到指定行？

Dim dr As DataRow
dr = DataTables("表A").Find("单位名称 = 'AAA'")

     做一个按扭，用上述代码想找到单位名称=’AAA‘   的行后，光标同时移动到该行中，还需加入什么指令呢？

    谢谢！（我运行该按扭后，并未提示出错，但是光标并未移动到指定条件的行上。）

t_fs

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2008/9/30 17:06:00 [显示全部帖子]

谢谢了！

t_fs

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2008/9/30 17:33:00 [显示全部帖子]

     麻烦您再给看看，以下代码有何问题，为什么不能移动到指定行。主要问题好象在'& Y1 &'上吧？谢谢了！

Dim Y1 As string
Y1 = e.form.Controls("TextBox1").TEXT
Dim dr As DataRow
dr = DataTables("表A").Find("单位名称 = '& Y1 &'") '找出控件TextBox1中随机录入的数据的指定行
If dr IsNot Nothing Then
    Tables("表A").Position = Tables("表A").FindRow(dr)
End if

t_fs

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2008/9/30 18:13:00 [显示全部帖子]

     谢谢，当前表中已通过，功能已实现！

     我想将上述代码分成二部分，即A表获取控件中的值：（Y1在项目初始属性中设为全局字符型变量）

Dim Y1 As string
Y1 = e.form.Controls("TextBox1").TEXT

     然后，转到B表后，移动指针找到单位名称=Y1 的行上。 B表窗口按扭的公式如下：

Dim dr As DataRow
dr = DataTables("表B").Find("单位名称 = '" & Y1 & "'")
If dr IsNot Nothing Then
    Tables("表B").Position = Tables("表B").FindRow(dr)
End if

    可是在窗口设计时按扭公式写完后，保存时提示Y1未定义，而无法保存按扭公式。想问一下：
1、为何全局变量换表后，还要定义？
2、A表的Y1数值能带到B表中来吗？
   再次谢谢！

t_fs

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2008/10/1 8:19:00 [显示全部帖子]

谢谢各位帮助，功能都已实现！

下一主题 >> << 上一主题

主题：[求助]光标怎样才能移动到指定行？