主题：窗口填入

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()