以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]查找窗口代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103837)
--  作者：积水成渊
--  发布时间：2017/7/18 12:35:00
--  [求助]查找窗口代码
我要写个窗口，实现查找的功能，但是我下面的这段代码只能查找到行，并不能锁定到单元格，请各位老师帮我看下该如何改
With CurrentTable
    Dim r As Integer
    Dim s1 As String = e.Form.Controls("TextBox1").Text
     For Each dc As Col In CurrentTable.Cols
     r = .Find(s1, .RowSel + 1, 0, False, False, True)
     If r > - 1 Then \'如果找到符合条件的行
        .Position = r  \'则选择该行
    End If
Next
End With
--  作者：有点甜
--  发布时间：2017/7/18 13:07:00
--  

参考

 

With CurrentTable
    Dim r As Integer
    Dim s1 As String = "test" \' e.Form.Controls("TextBox1").Text
    For Each dc As Col In CurrentTable.Cols
        r = .Find(s1, .RowSel + 1, dc.name, False, False, True)
        If r > - 1 Then \'如果找到符合条件的行
            .Select(r, dc.index)
            Exit For
        End If
    Next
End With