标题：求救一个代码

1楼

bm 发表于：2011/10/21 11:24:00

Dim txt As String = e.Form.Controls("ComboBox9").Text
Dim tbl As Table = Tables("表a")
If txt = "" Then
    tbl.filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.filter = " 编号 Like" & txt
End If

这个代码是用来查找的。我想要的结果是，只是光标移动到指定行。

[此贴子已经被作者于2011-10-21 11:24:28编辑过]

2楼

czy 发表于：2011/10/21 11:56:00

http://www.foxtable.com/help/topics/0553.htm

3楼

bm 发表于：2011/10/21 12:27:00

Dim dr As DataRow
Dim txt As String = e.Form.Controls("ComboBox9").Text
dr = DataTables("表a").Find("[编号] = 'Text'")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("表a").FindRow(dr)
    If wz >= 0 Then
        Tables("表a").Position = wz
    End If
End If

帮忙看看，那里不对

4楼

狐狸爸爸 发表于：2011/10/21 12:59:00

Dim dr As DataRow
Dim txt As String = e.Form.Controls("ComboBox9").Text
dr = DataTables("表a").Find("[编号] = '" & txt & "'")
If dr IsNot Nothing Then
       Dim wz As Integer = Tables("表a").FindRow(dr)
       If wz >= 0 Then
            Tables("表a").Position = wz
       End If
End If

共4 条记录, 每页显示 10 条, 页签: [1]