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
这段代码在窗口正常，获取的文本关键词是从菜单的文本框获取的，我现在想从窗口的文本框获取，就是粗体的那段文字应该怎么写？
加好友 
发短信
Post By：2015/4/22 11:28:00 [只看该作者]
