combo和text的关联问题

[gsxhl]

我有一个combo控件，有3个选项；单位，个人，朋友。1个text控件。
打算通过combo来控制text的显示.
即combo选单位时，text显示2685145
即combo选个人时，text显示3851451
即combo选朋友时，text显示13851451212

[chenbin63]

选单位，选个人和选朋友只能一起选呀，不能分开，请问你怎么控制的？

[gsxhl]

怎么会一起选？

combo1.AddItem ("单位")
combo1.AddItem ("个人")
combo1.AddItem ("朋友")

[lyserver]

Private Sub Combo1_Click()
Text1 = Split(Combo1.Tag, "|")(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "单位"
Me.Combo1.AddItem "个人"
Me.Combo1.AddItem "朋友"
Me.Combo1.Tag = "2685145|3851451|13851451212"
End Sub

[gsxhl]

感谢楼上的朋友，已经成功。但我还向问下，如果我有2个combo1(0),combo1(1),text1(0),text1(1)这种情况如何处理？

[lyserver]

Private Sub Combo1_Click(Index As Integer)
Text1(Index) = Split(Combo1(Index).Tag, "|")(Combo1(Index).ListIndex)
End Sub

Private Sub Form_Load()
Me.Combo1(0).AddItem "单位"
Me.Combo1(0).AddItem "个人"
Me.Combo1(0).AddItem "朋友"
Me.Combo1(0).Tag = "2685145|3851451|13851451212"

Me.Combo1(1).AddItem "AA"
Me.Combo1(1).AddItem "BB"
Me.Combo1(1).AddItem "CC"
Me.Combo1(1).Tag = "aaa|bbb|ccc"
End Sub

[gsxhl]

感谢“江南春”朋友的无私奉献，我终于成功了，谢谢