主题：[求助]下拉列表框窗口

此主题相关图片如下：合同分配.png

请教：合同窗口有三个下拉列表框（合同编号、供应商、合同名称），为少建立窗口，现三个下拉列表框均共用一个合同组合框窗口。

存在问题：1、当在合同编号打开合同组合框时，双击选择录入正常，当在供应商打开合同组合框时，双击选择录入将合同编号填入供应商框。

              2、当改变合同编号、供应商、合同名称三个组合框任何一个的内容，其他两个均为清空原有值。

请将修改的代码贴出，非常感谢！

 

DoubleClick代码如下：

 

Dim dr As Row = Tables("合同组合框_Table1").current
e.form.DropDownBox.Value = dr("合同编号")
Forms("合同分配").Controls("合同编号").Value = dr("合同编号")
Forms("合同分配").Controls("合同名称").Value = dr("合同名称")
Forms("合同分配").Controls("供应商").Value = dr("供应商")
Forms("合同组合框").DropDownBox.CloseDropdown()

TextChanged代码如下：

Dim drp As WinForm.DropDownBox = e.sender
Tables("合同组合框_Table1").Filter = ("合同状态 = '已签未开始送货'or 合同状态 = '补充合同' " )
If drp.DroppedDown Then '如果下拉窗口已经打开
    Dim tbl As Table = Tables("合同组合框_Table1")
    If drp.Text = " " Then '如果内容为空
        tbl.Filter = ("合同状态 = '已签未开始送货'or 合同状态 = '补充合同'" )  '显示所有合同号为空的品名
    Else '否则根据输入内容进行模糊筛选
        Dim txt As String = "'%" & drp.Text & "%'"
        tbl.Filter = " (合同编号 Like " & txt & " ) and ((合同状态 = '已签未开始送货') or (合同状态 = '补充合同')) "
        e.Form.Controls("供应商").text = " "  '合同编号的值有变化时清空供应商的值
        e.Form.Controls("合同名称").text = " "  '合同编号的值有变化时清空合同名称的值
    End If
    tbl.RepeatFilter("合同编号",1) '重复筛选,不显示重复的型号规格
    tbl.Sort = "合同编号,供应商 "
End If

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1_201708151044.zip

老办法是在不同的组合框建立不同的下拉组合框窗体，内容是一样的。有简单的法子吗？

版主，请贴出代码，小狗到期了。非常感谢！

有点甜，请贴出代码，小狗到期了。非常感谢！

有点甜，问题2怎解决？请指教，非常感谢！请将代码贴出。

 

 

存在问题：2、当改变合同编号、供应商、合同名称三个组合框任何一个的内容，其他两个均为清空原有值。

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

 希望上图一样，当清空供应商时，合同编号和合同名称均清空。

另请问：上段代码写在那里？