按照帮助“自定义录入界面四” 我设计了一个下拉窗口 现在可以正常运作

  我现在想更进一步设计

  比如我现在的设计的下拉窗口是 在“产品名称”列显示 如果我在“产品编号”列显示也实现了   但是有个问题 就是取值的时候产品编号列取的也是“产品名称”

  我知道代码应该在 窗口table的 doubleclik事件中修改 但是怎么修改呢

因为数据源绑定的是公司服务器的数据库 所以无法上传项目 麻烦大家费心看下了

原代码是这样的

Dim tbl As Table = Tables("选择产品_Table1")

If tbl.Current IsNot Nothing  Then
    Forms("选择产品").DropDownBox.Value = tbl.Current("产品名称")

End If
Forms("选择产品").DropDownBox.CloseDropDown()

我试着用这个思路太写了几个代码都不行啊

 学艺不精  还请指教

Dim tbl As Table = Tables("选择产品_Table1")

If tbl.Current IsNot Nothing Then

         if tbl.Cols(tbl.Colsel).Name = "产品名称" Then
              Forms("选择产品").DropDownBox.Value = tbl.Current("产品名称")

         elseif tbl.Cols(tbl.Colsel).Name = "产品编号" Then
             Forms("选择产品").DropDownBox.Value = tbl.Current("产品编号")

         end if

End If
Forms("选择产品").DropDownBox.CloseDropDown()

谢谢狐爸  虽然你这个代码不能直接用  但是给了我很大的启示  现在已经达到我的要求了