通过DropDownBox 选择的值如果不是唯一值，如何定位是选择行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过DropDownBox 选择的值如果不是唯一值，如何定位是选择行

共有2750人关注过本帖树形打印复制链接主题：通过DropDownBox 选择的值如果不是唯一值，如何定位是选择行

水墨青花

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

加好友

发短信

等级：幼狐帖子：196 积分：1667 威望：0 精华：0 注册：2019/3/1 11:38:00

通过DropDownBox 选择的值如果不是唯一值，如何定位是选择行 发帖心情

Post By：2021/11/24 9:29:00 [只看该作者]

老师，

通过DropDownBox 点击选择的值，如果不是如下【客户ID】这样的唯一值，而是有可能重复的【客户名称】，但是不同的客户名称行所包含的信息不同。

每次双击选择时，录入的经常是匹配该客户名称的第一个行的内容，不是双击行的内容。

如何才能确定是双击行的内容录入呢？

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
End If