Dim Val As String = RibbonTabs("Common").Groups("find").Items("findtext").Text
vars("p") = 0
For Each c As Col In CurrentTable.Cols
For i as integer = vars("p") to CurrentTable.Rows.count - 1
dim r as row = CurrentTable.Rows(i)
If cstr(r(c.Name)) = Val Then
vars("p") = r.index
CurrentTable.position = r.index
return
End If
Next
Next
以上这个代码还是只能查找到第一个匹配的目标，不能查找到后面一样的目标，
还有一个问题，如何把这个代码变成模糊查。
加好友 
发短信
Post By：2020/7/20 19:58:00 [只看该作者]
