建立一个查询功能，保存后，不能查询，请帮忙看一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 建立一个查询功能，保存后，不能查询，请帮忙看一下

共有9562人关注过本帖树形打印复制链接主题：建立一个查询功能，保存后，不能查询，请帮忙看一下

hcq1437

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

加好友

发短信

等级：婴狐帖子：6 积分：125 威望：0 精华：0 注册：2012/4/24 13:49:00

建立一个查询功能，保存后，不能查询，请帮忙看一下 发帖心情

Post By：2012/6/18 13:28:00 [只看该作者]

项目见附件，谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:l2 财务预付款.table

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/6/18 13:45:00 [只看该作者]

我测试有效的。
另外注意，你这个设计只能对字符列有效，对于数值列无效。
这样改一下，对于字符和数值列，都会有效的：

Dim Val As String = RibbonTabs("日常工作")("编辑1")("工具栏")("StringToFind").Text
Dim Index As Integer
With CurrentTable
    If .Cols(.ColSel).DataCol.IsString Then
        Index = .FindRow(.Cols(.ColSel).Name & " = '" & Val & "'", .Position + 1,True)
    ElseIf .Cols(.ColSel).DataCol.IsNumeric Then
        Index = .FindRow(.Cols(.ColSel).Name & " = " & Val , .Position + 1,True)
    End If
    If Index >= 0 Then
        .Position = Index
    End If
End With