Foxtable(狐表)用户栏目专家坐堂 → 定位代码怎么不行?


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

主题:定位代码怎么不行?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/10/15 9:02:00 [显示全部帖子]

r = .FindRow("[编号] = " & r1, .Position + 1, True ) '从当前行开始查找

只有字符才需要单引号
[此贴子已经被作者于2008-10-15 9:02:05编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/10/15 9:56:00 [显示全部帖子]

r = .FindRow("[编号] = '" & r1 & "'", .Position + 1, True ) '从当前行开始查找

帮助中有单引号和双引号的说明,如何合成表达式也有讲解,请仔细看一下。
[此贴子已经被作者于2008-10-15 9:57:18编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/10/15 10:07:00 [显示全部帖子]

很简单的一个问题,搞不定是因为你根本就没有认真地看过帮助文件

自己仔细看看下面的例子,你原来的代码,有太多的低级错误:

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目7.table


 

With CurrentTable

    Dim r As Integer   

    Dim r1 As String = e.Form.Controls("按编号").value

    r = .FindRow("[编号] = '" & r1 & "'", .Position + 1, True ) '从当前行开始查找

    If r >= 0 Then '如果找到的话

        .Position = r '定位到找到的行.

    End If

End With

[此贴子已经被作者于2008-10-15 10:09:01编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/10/15 14:55:00 [显示全部帖子]

从头看起


 回到顶部