[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有6577人关注过本帖树形打印复制链接主题：[求助]

sadfox

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/17 21:12:00 [显示全部帖子]

哈哈，这个问题我也问过，等我去给你找！

sadfox

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：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

找到了，就这个！

sadfox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/17 21:58:00 [显示全部帖子]

以下是引用dycjj在2013-4-17 21:36:00的发言：
如果能按拼音查询，就更好了，比如我在文本框中输入“ldh”就能够查出刘德华以及相似的人的名称，这该多方便啊，楼上的兄弟，你说是不是？

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

下一主题 >> << 上一主题

主题：[求助]