主题：在窗口中通过文本框查找行

此主题相关图片如下：544444.png

窗口中已绑定表"学员一览表"

添加了文本框和按钮

在文本框中输入某一列 信息  单击按钮 在绑定表中 选中该行

 

帮助里教了如何在菜单里设置搜索栏，在窗口中该如何实现呢？

我查找按钮 命令：

Dim Filter   As   String
 With e.Form.Controls("按学员姓名")
       If .Value   IsNot   Nothing  Then
         Filter =   "姓名 = '" & .Value &   "'"
       End   If
 End   With

 

如果不指定列  而是根据关键字呢？可以实现吗？

此主题相关图片如下：444433.jpg

单击以后 弹出这个窗口

窗口事件

Dim cmb As WinForm.ComboBox = e.form.Controls("输入关键字")
cmb.ComboList = DataTables("学员一览表")

要这样吗？

 

此主题相关图片如下：0009.png

输入关键字 查询绑定表中 包含关键字的行。

不用筛选，就选定指定行就行，or 选定行 突出显示

还在吗？

With CurrentTable
    Dim r As Integer
    r = .FindRow("[姓名] Like '%" & e.Form.Controls("按学员姓名").Text & "%'") '从 第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With

 

这样可以吗？