主题：建立一个查询功能，保存后，不能查询，请帮忙看一下

项目见附件，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:l2 财务预付款.table

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

我在项目里测试时，输入 查询的字符 或者 数字，点查询按键后，没有任何反应呢。

我测试可以的，单击之后，光标就会自动定位到找到的哪一行啊

可以了，谢谢

 

之前为什么不可以？