主题：拼音索引求助？

设计了个拼音查询窗口，在文本框里输入表中姓名列姓名的首写字母，即查询到相应的内容，请问代码咱写？

加一列字母列，DataColChanged事件

 

If e.DataCol.Name = "名称" Then
    If e.DataRow.IsNull("名称") Then
        e.DataRow("字母") = Nothing
    Else
        e.DataRow("字母") = GetPy(e.DataRow("名称").SubString(0,1), True)
    End If
End If

 

查询窗口，根据字母列查询。

请问，我把表增加列，输入事件代码后，在查询窗口文本框的代码咋写？求助！

 Tables("表A").Filter = "字母 like '%" & e.Form.Controls("TextBox1").Text & "%'"

老师，我按照你说的，咋不行啊？

 你先要重置列，把字母的内容生成

 

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

 

老师功能已实现，查找完内容后，点击窗口上的?能返回显示所有内容，咋写代码？谢谢！

 Tables("表A").Filter = ""

点击查询窗口右上角的×能返回，并显示表所有内容，具体咋写代码，上面代码我不会用。求助？谢谢！

AfterClose事件

 

Tables("表A").Filter = ""