主题：求教： 怎么编一段 按条件搜索的 代码

一个文本框，一个按钮，按钮代码：

Dim txt As String =e.Form.Controls("文本框").Value
If txt > "" Then
   Dim r As Integer = Tables("表名").Findrow("某列 = '" & txt & "'", 0, False)
   If r >= 0 Then
       Tables("表名").Position = r
   End If
End If

建议看看：

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

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

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