以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  拼音索引求助？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71579)
--  作者：1142327587
--  发布时间：2015/7/14 11:31:00
--  拼音索引求助？
设计了个拼音查询窗口，在文本框里输入表中姓名列姓名的首写字母，即查询到相应的内容，请问代码咱写？
--  作者：大红袍
--  发布时间：2015/7/14 11:36:00
--  

加一列字母列，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

 

查询窗口，根据字母列查询。
--  作者：1142327587
--  发布时间：2015/7/14 12:29:00
--  
请问，我把表增加列，输入事件代码后，在查询窗口文本框的代码咋写？求助！
--  作者：大红袍
--  发布时间：2015/7/14 14:23:00
--  
 Tables("表A").Filter = "字母 like \'%" & e.Form.Controls("TextBox1").Text & "%\'"
--  作者：1142327587
--  发布时间：2015/7/14 17:49:00
--  
老师，我按照你说的，咋不行啊？
--  作者：大红袍
--  发布时间：2015/7/14 17:51:00
--  

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

 

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

 
--  作者：1142327587
--  发布时间：2015/7/14 19:53:00
--  
老师功能已实现，查找完内容后，点击窗口上的?能返回显示所有内容，咋写代码？谢谢！
--  作者：大红袍
--  发布时间：2015/7/14 19:55:00
--  
 Tables("表A").Filter = ""
--  作者：1142327587
--  发布时间：2015/7/15 17:35:00
--  
点击查询窗口右上角的×能返回，并显示表所有内容，具体咋写代码，上面代码我不会用。求助？谢谢！
--  作者：大红袍
--  发布时间：2015/7/15 17:37:00
--  

AfterClose事件

 

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