Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共8 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
ahljy351 发表于: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
2楼
狐狸爸爸 发表于:2008/10/15 9:02:00
r = .FindRow("[编号] = " & r1, .Position + 1, True ) '从当前行开始查找

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

上面执行后提示编译错误

[此贴子已经被作者于2008-10-15 9:57:56编辑过]
4楼
狐狸爸爸 发表于:2008/10/15 9:56:00
r = .FindRow("[编号] = '" & r1 & "'", .Position + 1, True ) '从当前行开始查找

帮助中有单引号和双引号的说明,如何合成表达式也有讲解,请仔细看一下。
[此贴子已经被作者于2008-10-15 9:57:18编辑过]
5楼
ahljy351 发表于:2008/10/15 9:59:00
编译错误,定位一个怎么这么难啊,建议增加一个类似查找框的控件,属性设置有 定位或筛选!


图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2008-10-15 10:01:49编辑过]
6楼
狐狸爸爸 发表于: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编辑过]
7楼
ahljy351 发表于:2008/10/15 14:27:00
实在不好意思,帮助文件根本不知从哪里看起。唉,先谢谢了。狐爸这么细心的解答,我很惭愧啊。
8楼
狐狸爸爸 发表于:2008/10/15 14:55:00

从头看起

共8 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.