以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31606)
--  作者：dycjj
--  发布时间：2013/4/17 20:30:00
--  [求助]

各位狐友老师们，帮写段查询会员的代码，我有一个会员表，包括会员编号和姓名等，然后我设计一个查询窗口，有一个文本框和一个查询按纽，希望在该文本框中输入会员编号或姓各，然后单击该查询按纽，能在会员表中筛选出我要查找的会员（不好意思，看了两遍帮助，能看懂7成左右，可真要我定代码，可就犯难了）
--  作者：sadfox
--  发布时间：2013/4/17 21:12:00
--  
哈哈，这个问题我也问过，等我去给你找！
--  作者：sadfox
--  发布时间：2013/4/17 21:17:00
--  

Dim txt As String =  e.Form.Controls("TextBox1").Value
If txt = "" Then
    Return
End If
Dim flt As String
If IsNumeric(txt) Then
    If txt.Length <> 6 Then
        messagebox.show("请输入正确的六位数编号")
        Return
    Else
        flt = "编号 = \'" & txt & "\'"
    End If
Else
    flt = "姓名 = \'" & txt & "\'"
End If
If  DataTables("表A").Find(flt) Is Nothing Then
    messagebox.show("查无此人")
Else
    Tables("表A").filter = flt
End If

 

找到了，就这个！
--  作者：dycjj
--  发布时间：2013/4/17 21:23:00
--  

谢谢，好人啊，祝你心想事成，年年中大奖。
--  作者：dycjj
--  发布时间：2013/4/17 21:36:00
--  
如果能按拼音查询，就更好了，比如我在文本框中输入“ldh”就能够查出刘德华以及相似的人的名称，这该多方便啊，楼上的兄弟，你说是不是？
--  作者：sadfox
--  发布时间：2013/4/17 21:58:00
--  
以下是引用dycjj在2013-4-17 21:36:00的发言：
如果能按拼音查询，就更好了，比如我在文本框中输入“ldh”就能够查出刘德华以及相似的人的名称，这该多方便啊，楼上的兄弟，你说是不是？

笨办法，你在增加一列用于输入拼音首写字母！