专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67301)

--  作者：老奤
--  发布时间：2015/4/22 8:25:00
--  [求助]

Dim Val As String = RibbonTabs("工作中心").Groups("办理手续专区").Items("查找").Items("输入").Text
Dim Index As Integer
With CurrentTable
Index = .FindRow(.Cols(.ColSel).Name & " = \'" & Val & "\'", .Position + 1,True)
If Index >= 0 Then
.Position = Index
Else
messagebox.show("逗我呢?根本没有这户呀!请认真点好吗?")
End If
End With

各位老师，这是在菜单中“查找”按钮的事件，前提条件是必须选中查找的列，我想让他指定在某一列中查找，应该怎么弄？比如我有一列的列名为“系统编号”，我想不管表格当前在哪一列或行，只要点击超找会自动在这一列进行查找呢？

--  作者：老奤
--  发布时间：2015/4/22 8:34:00
--

With Tables("十二组")
Dim c As Integer = .Cols("系统编号").Index
.Select(0,c,.rows.count - 1,c)
End With
Dim Val As String = RibbonTabs("工作中心").Groups("办理手续专区").Items("查找").Items("输入").Text
Dim Index As Integer
With CurrentTable
Index = .FindRow(.Cols(.ColSel).Name & " = \'" & Val & "\'", .Position + 1,True)
If Index >= 0 Then
.Position = Index
Else
messagebox.show("逗我呢?根本没有这户呀!请认真点好吗?")
End If
End With

自己搞定，代码如上