主题：组合框赋值问题

                窗口有combobox2  和 combobox4  我想将combobox4 赋给combobox2  如当combobox4为“广东”时，combobox2就出现“广州”

当combobox4为“福建”时，combobox2就出现“福州”，代码如何写？

谢谢！

Dim cb2 As WinForm.ComboBox
cb2 = Forms("窗口1").Controls("ComboBox2")
Dim cb4 As WinForm.ComboBox
cb4 = Forms("窗口1").Controls("ComboBox4")
if cb4.value = "广东" then

    cb2.value = "广州"

end if

...........

SelectedIndexChanged

选择不同列表项目后执行。

e参数属性:

Form: 返回触发事件的窗口
Sender： 返回触发事件的控件

示例

某组合框绑定到客户表，希望从该组合框选择一个客户后，能够将该客户的电话和姓名填入另两个文本框中。
为实现此目的，可将该组合框的SelectedIndexChanged事件代码设为：

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = cm.SelectedItem
If dr IsNot Nothing Then
e.Form.Controls("txtName").Value = dr("姓名")
e.Form.Controls("txtTel").Value = dr("电话")
End If