2012-01-10 40 views
1

我在窗體上有大約8個組合框。當用戶點擊「重置」按鈕時,我希望所有的組合框在組合框中顯示第一個數據。下面的代碼返回null並不起作用:訪問 - 重置所有組合框到項目數據(1)的形式

Private Sub Command1_Click() 
    Me.Combo1.ItemData (1) 
    Me.Combo2.ItemData (1) 
    Me.Combo3.ItemData (1) 
    Me.Combo4.ItemData (1) 
    Me.Combo5.ItemData (1) 
    Me.Combo6.ItemData (1) 
    Me.Combo7.ItemData (1) 
    Me.Combo8.ItemData (1) 
End Sub 

回答

2

如果它的MS Access與你的工作,你需要這樣做:

Private Sub Command1_Click() 
    Me.Combo1.Value = Nothing 
    Me.Combo2.Value = Nothing 
    Me.Combo3.Value = Nothing 
    Me.Combo4.Value = Nothing 
    Me.Combo5.Value = Nothing 
    Me.Combo6.Value = Nothing 
    Me.Combo7.Value = Nothing 
    Me.Combo8.Value = Nothing 
End Sub 

假設您想要將所有組合框設置回空白值。

+0

這樣做!謝謝! – tdjfdjdj 2012-01-10 14:27:58

0

試試這個:

Private Sub Command1_Click() 
    Me.Combo1.SelectedIndex = 0 
    Me.Combo2.SelectedIndex = 0 
    Me.Combo3.SelectedIndex = 0 
    Me.Combo4.SelectedIndex = 0 
    Me.Combo5.SelectedIndex = 0 
    Me.Combo6.SelectedIndex = 0 
    Me.Combo7.SelectedIndex = 0 
    Me.Combo8.SelectedIndex = 0 
End Sub 
+0

SelectedIndex似乎不存在作爲通過智能感知的選項。 – tdjfdjdj 2012-01-10 14:25:16

+0

然後使用'Me.Combo1.Value = Nothing'等。 – 2012-01-10 14:30:00

0

喜歡的東西Me.Combo1.SelectedIndex = 0

通常...