主题：窗口填入

我想把下拉窗口的客户名称与电话同时填入到窗口1的DropBox1与TextBox2里。DropBox1填入已实现

求助，如何将下拉窗口的 电话 填入到窗口1的 TextBox2 里

谢谢！！！

'dropdownclosed事件代码
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 = e.Form.Controls("TextBox2").value
         End If
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
             e.Form.Controls("TextBox2").text= tbl.Current("电话")
         End If
End If
Forms("产品仓库信息下拉窗口").DropDownBox.CloseDropDown()

 

非常感谢!!!

我用你的代码调试了一下,还是不成功,是否还要在窗口1 增加代码啊

'dropdownclosed事件代码
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
        e.Form.Controls("TextBox2").text= tbl.Current("电话")
    ElseIf tbl.Cols(tbl.Colsel).Name = "托运部" Then
        e.Form.Controls("TextBox6").text= tbl.Current("托运部")
    End If
End If

Forms("客户信息下拉窗口").DropDownBox.CloseDropDown()

 

CLICK 事件代码

Dim r As Row = Tables("客户信息表").Current
e.Form.Controls("DropBox1").value = r("客户名称")
e.Form.Controls("TextBox2").value = r("电话")
e.Form.Controls("TextBox6").value = r("托运部")

我用上述代码调试不成功

做个简单的例子发上来，然后再说明问题。