以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  建立一个查询功能，保存后，不能查询，请帮忙看一下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20738)
--  作者：hcq1437
--  发布时间：2012/6/18 13:28:00
--  建立一个查询功能，保存后，不能查询，请帮忙看一下
项目见附件，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:l2 财务预付款.table
--  作者：狐狸爸爸
--  发布时间：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
--  作者：hcq1437
--  发布时间：2012/6/18 14:03:00
--  
我在项目里测试时，输入 查询的字符 或者 数字，点查询按键后，没有任何反应呢。
--  作者：狐狸爸爸
--  发布时间：2012/6/18 14:08:00
--  
我测试可以的，单击之后，光标就会自动定位到找到的哪一行啊
--  作者：hcq1437
--  发布时间：2012/6/18 14:11:00
--  

可以了，谢谢

 
--  作者：狐狸爸爸
--  发布时间：2012/6/18 14:17:00
--  

之前为什么不可以？