2个回答
展开全部
Private Sub Combo1_Click()
Dim list As Integer
list = Combo1.ListIndex
Combo2.Text = Combo2.list(Combo1.ListIndex)
End Sub
Private Sub Combo2_Click()
Dim list As Integer
list = Combo2.ListIndex
Combo1.Text = Combo1.list(Combo2.ListIndex)
End Sub
Dim list As Integer
list = Combo1.ListIndex
Combo2.Text = Combo2.list(Combo1.ListIndex)
End Sub
Private Sub Combo2_Click()
Dim list As Integer
list = Combo2.ListIndex
Combo1.Text = Combo1.list(Combo2.ListIndex)
End Sub
展开全部
这个:
sub cmbox1_click()
Select Case Cmbox1.ListIndex
Case 0
cmbox2.listindex=??
Case 1
cmbox2.listindex=??
Case 2
cmbox2.listindex=??
Case ??
cmbox2.listindex=??
End Select
end sub
这样无论你什么时候修改cmbox1的内容总会使cmbox2发起反应
??是你对应于cmbox1修改后的当前内容,cmbox 要用下拉列表的哪一项其反应的规则,自己来定
sub cmbox1_click()
Select Case Cmbox1.ListIndex
Case 0
cmbox2.listindex=??
Case 1
cmbox2.listindex=??
Case 2
cmbox2.listindex=??
Case ??
cmbox2.listindex=??
End Select
end sub
这样无论你什么时候修改cmbox1的内容总会使cmbox2发起反应
??是你对应于cmbox1修改后的当前内容,cmbox 要用下拉列表的哪一项其反应的规则,自己来定
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询