[已解决][求助]多个组合框同时赋值又该怎么写代码？

东方智彩 · 发表于 2009-9-14 11:51

要是多个组合框同时赋值又该怎么写代码？

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
ComboBox1.List = Array("优良", "满意", "合格")
End Sub

最佳答案

函数小菜鸟

2009-9-14 12:39

Private Sub ComboBox1_GotFocus()
    ComboBox1.Clear
    ComboBox2.Clear
    ComboBox3.Clear
    ARR1 = Array("优良", "满意", "合格")
    For I = 0 To UBound(ARR1)
        ComboBox1.AddItem ARR1(I)
        ComboBox2.AddItem ARR1(I)
        ComboBox3.AddItem ARR1(I)
    Next
End Sub

跳转到最佳答案楼层

amulee · 发表于 2009-9-14 11:55

用循环，传个附件吧

函数小菜鸟 · 发表于 2009-9-14 11:57

Private Sub ComboBox1_GotFocus()
    ComboBox1.Clear
    ARR1 = Array("优良", "满意", "合格")
    For I = 0 To UBound(ARR1)
        ComboBox1.AddItem ARR1(I)
    Next
End Sub

东方智彩 · 发表于 2009-9-14 12:34

[求助]多个组合框同时赋值又该怎么写代码？

刚试过代码不好用啊，请函数小菜鸟版主再修改一下，只有一个好用！

函数小菜鸟 · 发表于 2009-9-14 12:39

Private Sub ComboBox1_GotFocus()
    ComboBox1.Clear
    ComboBox2.Clear
    ComboBox3.Clear
    ARR1 = Array("优良", "满意", "合格")
    For I = 0 To UBound(ARR1)
        ComboBox1.AddItem ARR1(I)
        ComboBox2.AddItem ARR1(I)
        ComboBox3.AddItem ARR1(I)
    Next
End Sub

福建随风飘扬 · 发表于 2009-9-14 13:35

看看

求知123 · 发表于 2009-9-14 20:36

学习一下

zsd5237 · 发表于 2009-9-15 05:30

学习[em02][em02]

追逐梦 · 发表于 2016-10-20 17:44

学习

		自动登录	找回密码
密码			注册