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

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

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

dycjj

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

加好友

发短信

等级：幼狐帖子：171 积分：1292 威望：0 精华：0 注册：2011/8/17 21:12:00

[求助]

Post By：2013/4/17 20:30:00 [只看该作者]

各位狐友老师们，帮写段查询会员的代码，我有一个会员表，包括会员编号和姓名等，然后我设计一个查询窗口，有一个文本框和一个查询按纽，希望在该文本框中输入会员编号或姓各，然后单击该查询按纽，能在会员表中筛选出我要查找的会员（不好意思，看了两遍帮助，能看懂7成左右，可真要我定代码，可就犯难了）

sadfox

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

加好友

发短信

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

Post By：2013/4/17 21:12:00 [只看该作者]

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

sadfox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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