以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于查找行，并选中行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87129)
--  作者：lovebc299
--  发布时间：2016/7/4 12:26:00
--  [求助]关于查找行，并选中行
我在窗口中放了一个按钮

点击这个按钮，要求   根据产品名称，在产品列表里查找到产品相应的行，并选中这一行



想了半天不知道该用什么代码，痴呆了
--  作者：lovebc299
--  发布时间：2016/7/4 13:12:00
--  

Dim a As String = e.Form.controls("combobox1").value
Dim aa As Integer = 0
For Each dr As DataRow In DataTables("产品列表").DataRows

    If dr("产品名称") = a Then
    With Tables("产品列表")
        .Position = aa
    End With
    Else
    aa = aa+1
    End If

Next


我是这样写的，显示的结果总是不对
--  作者：大红袍
--  发布时间：2016/7/4 14:20:00
--  

参考代码

 

Dim a As String = e.Form.controls("combobox1").value
With Tables("产品列表")
    Dim r As Integer
    r = .FindRow("产品名称 = \'" & a & "\'", .Position + 1, True ) \'从当前行的下一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With