自定义录入界面之三 (帮助) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义录入界面之三 (帮助)

共有3511人关注过本帖树形打印复制链接主题：自定义录入界面之三 (帮助)

7032175

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

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

自定义录入界面之三 (帮助) 发帖心情

Post By：2013/10/25 9:12:00 [只看该作者]

我在实战中想加入我的自已的实际需要,但是不知道怎么改,请帮助一下

我首先只需要下拉出来的表只显示 "客户ID","公司名称",把"地址","联系人"去掉,这时在主表客户栏里面输入内容里问题就出来了,会出现很多重复相同的"客户ID","公司名称",如何把重复值去掉,只显示一个呢.

If e.Col.Name = "客户ID" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("窗口1_Table1")
        If e.Text = "" Then '如果内容为空
            tbl.Filter = "" '显示所有客户
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'%" & e.Text & "%'"
            tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
        End If
    End If
End If