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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 官方自定义录入界面之三的一个改进的问题

共有2657人关注过本帖树形打印复制链接主题：官方自定义录入界面之三的一个改进的问题

蓝色理想

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

加好友

发短信

等级：二尾狐帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00

官方自定义录入界面之三的一个改进的问题 发帖心情

Post By：2021/2/6 23:26:00 [只看该作者]

单元格中输入内容，自动下拉窗口筛选数据，帮助录入

当：

1、要用下拉窗口录入多列数据

2、当前要录入的行、列，以前已经录入过数据，现在是要修改

3、录入单元格的内容，筛选窗口中没有的时候，用户敲了回车

会出现一个问题

1、录入单元格的数据为手工录入的值，而不是下拉窗口中任何一个值

2、其余一并要录入的列，因为下拉窗口中没有值被选中，而不会更新那些列，导致那些列是老值。

需要改进的目标是：

当单元格手工录入的值，不在下拉窗口中时，无论客户是敲回车，还是 Tab 键，还是以其他任何方式离开当前单元格

都将当前录入单元格和当前行应一并录入的列，统一设置为空值。

此主题相关图片如下：图像 1.png

蓝色理想

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

加好友

发短信

等级：二尾狐帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00

Post By：2021/2/6 23:33:00 [只看该作者]

举个例子说明这个问题

假设在客户ID 单元格输入数据自动下拉窗口筛选，选择下拉窗口对应的行以后，自动将客户ID，公司名称两列录入当前行

当前行已经有数据：

客户ID 公司名称

BOLD 迈多贸易

要修改当前行数据，所以在客户ID 单元格录入 XXXX（一个下拉窗口中不可能存在的数据），当前下拉窗口中筛选不出任何记录

客户敲入回车后的结果是

当前行数据变成：

客户ID 公司名称

XXXX 迈多贸易

请问如何才能在这种情况，当录入的数据，下拉窗口筛选不出的时候，让录入各列都变成空？

蓝色理想

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

加好友

发短信

等级：二尾狐帖子：560 积分：4273 威望：0 精华：0 注册：2014/6/12 19:15:00

Post By：2021/2/6 23:43:00 [只看该作者]

其实最终的目标就是

单元格可以输入数据，但是只作为筛选下拉窗口中的数据之用

数据输入只能通过下拉窗口来输入

请问如何做到

有点蓝

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

加好友

发短信

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

Post By：2021/2/7 10:14:00 [只看该作者]

窗口的DropDownClosed事件代码改改，如果有选择就录入选择的数据，如果没有选择就清空单元格

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("客户ID")
        If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else '如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If

else

清空的代码
End If