自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改

共有70人关注过本帖树形打印复制链接主题：自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改

fx719

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

加好友

发短信

等级：幼狐帖子：81 积分：1013 威望：0 精华：0 注册：2022/11/15 18:31:00

自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改 发帖心情

Post By：2024/12/23 15:33:00 [只看该作者]

比如说我在口径这列下拉能直接根据客户要求产品名称这列去筛选需要怎么修改

foxtablefanse

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

加好友

发短信

等级：二尾狐帖子：571 积分：5491 威望：0 精华：0 注册：2018/11/6 10:54:00

Post By：2024/12/24 17:12:00 [只看该作者]

If e.Col.Name = "口径" Then '如果编辑的是客户ID列
If e.Col.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As Table = Tables("窗口1_Table1")

e.text=e.Row("客户要求产品名称")

        If e.Text = "" Then '如果内容为空
            tbl.Filter = "" '显示所有客户
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'%" & e.Text & "%'"
            tbl.Filter = "客户要求产品名称 like " & txt
        End If
    End If
End If

[此贴子已经被作者于2024/12/24 17:26:18编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/12/24 17:27:00 [只看该作者]

去掉表格ChangeEdit事件，

将窗口的DropDownOpened事件代码设置为:

Dim r as row = e.Form.DropTable.current
Dim tbl As Table = Tables("窗口1_Table1")
If r.isnull("产品名称") Then

tbl.Filter = ""
Else
tbl.Filter = "产品名称 ='" & r("产品名称") & "'"

End If

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

主题：自定义录入界面之三,更改为根据已经录入的列内容筛选如何修改