我在一个录入窗口中，单击某控件后（ComboBox,TextBox,Label这三个控件）后弹出一个'选择窗口'，任意一个单击
Vars("返回控件名")=e.Sender.name
Vars("返回窗口名")=e.Form.name
Vars("返回控件类型")=e.sender.gettype.name
forms("地区选择窗口").Open
以下是选择窗口中，目录树的节点双击中的命令（因为控件的类型不一样，所以其属性也不一样）
dim a as string=Vars("返回控件类型")
Select Case a
Case "ComboBox"
Forms("" &Vars("返回窗口名")& "").Controls("" &Vars("返回控件名")& "").value=vals(1)
Case "Label"
Forms("" &Vars("返回窗口名")& "").Controls("" &Vars("返回控件名")& "").text=vals(1)
Case "TexBox"
Forms("" &Vars("返回窗口名")& "").Controls("" &Vars("返回控件名")& "").value=vals(1)
End Select
最后怎么只有 控件类型为 lable的控件可从'选择窗口' 中返回一个数据？？其它的无效呢？
[此贴子已经被作者于2009-10-7 11:10:58编辑过]