Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub
追问
不行呀!应该怎么解决 谢谢
追答你这不是List是Combox吧
Private Sub Combo1_Change()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub
这些代码都是试过可用的
追问哦 不好意思 我看错了的确是combo控件
可是复制过去还是不行呀!我要在text2里显示的
还有一个问题
这个是哪个控件??
追答DataGrid
本回答被提问者和网友采纳