- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 建立一个查询功能，保存后，不能查询，请帮忙看一下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20738)
-- 发布时间：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
-- 发布时间：2012/6/18 14:03:00
--
我在项目里测试时，输入 查询的字符 或者 数字，点查询按键后，没有任何反应呢。
-- 发布时间：2012/6/18 14:08:00
--
我测试可以的，单击之后，光标就会自动定位到找到的哪一行啊
-- 发布时间：2012/6/18 14:11:00
--
可以了，谢谢
-- 发布时间：2012/6/18 14:17:00
--
之前为什么不可以？