简单问题

Question

1，我有一组combo1控件，我想让它们在form_load事件中的下拉列表项显示是相同的，
也就是说在form_load事件中它们具有相同的属性，通过代码实现，请问怎么实现？
2，我有一组combo1控件，我想让它们在form_load事件中的下拉列表项加载的是我在视图Vstaff中检索出的列名，请问怎么解决？

Answer 1

For j = 0 To 5
    With Combo1(j)
        .AddItem ("" & rssql.Fields(0) & "")
        .AddItem ("姓名")
        .AddItem ("性别")
        .ListIndex = 0
    End With
Next j
这是第一个问题的答案

Answer 2

For j = 0 To 5
    With Combo1(j)
        .AddItem ("" & rssql.Fields(0) & "")
        .AddItem ("姓名")
        .AddItem ("性别")
        .ListIndex = 0
    End With
Next j
这是第一个问题的答案

Answer 3

rssql.Open "select name from syscolumns where id =(select id from sysobjects where  xtype ='V' and name='你的视图名')", cn, 3, 2
If Not rssql.BOF And Not rssql.EOF Then
  rssql.MoveFirst
  Do While Not rssql.EOF
    For j = 0 To 5
       Combo1(j).AddItem (rssql.Fields(0))
    Next j
    rssql.MoveNext
  Loop
    For j = 0 To 5
       Combo1(j).ListIndex = 0
    Next j
End If
这是第二个问题的答案