主题：窗口填入

我想把下拉窗口的客户名称与电话同时填入到窗口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()