- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 定位代码怎么不行？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=878)
-- 发布时间：2008/10/15 8:28:00
-- 定位代码怎么不行？
With CurrentTable
Dim r As Integer
Dim r1 As WinForm.ComboBox = e.Form.Controls("按编号")
r = .FindRow("[编号] = \'r1\'", .Position + 1, True ) \'从当前行开始查找
If r >= 0 Then \'如果找到的话
.Position = r \'定位到找到的行.
End If
End With
-- 发布时间：2008/10/15 9:02:00
--
r = .FindRow("[编号] = " & r1, .Position + 1, True ) \'从当前行开始查找
只有字符才需要单引号
[此贴子已经被作者于2008-10-15 9:02:05编辑过]
-- 发布时间：2008/10/15 9:52:00
--
上面执行后提示编译错误
[此贴子已经被作者于2008-10-15 9:57:56编辑过]
-- 发布时间：2008/10/15 9:56:00
--
r = .FindRow("[编号] = \'" & r1 & "\'", .Position + 1, True ) \'从当前行开始查找
帮助中有单引号和双引号的说明，如何合成表达式也有讲解，请仔细看一下。
[此贴子已经被作者于2008-10-15 9:57:18编辑过]
-- 发布时间：2008/10/15 9:59:00
--
编译错误，定位一个怎么这么难啊，建议增加一个类似查找框的控件，属性设置有 定位或筛选！
此主题相关图片如下：qq截图未命名.jpg
[此贴子已经被作者于2008-10-15 10:01:49编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2008/10/15 14:27:00
--
实在不好意思，帮助文件根本不知从哪里看起。唉，先谢谢了。狐爸这么细心的解答，我很惭愧啊。
-- 发布时间：2008/10/15 14:55:00
--
从头看起