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