谁的组合框ondblclick???

sunredday

Public Function cbodropdown()
Screen.ActiveControl.Dropdown
End Function

Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is ComboBox Then
ctl.OnDblClick = "=cbodropdown()"
End If
Next ctl

End Sub

the second:
Public Sub cbodropdown(ctlname As String)

Me(ctlname).Dropdown

End Sub

Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is ComboBox Then
ctl.OnDblClick = "=cbodropdown(""" & ctl.Name & """)"
End If
Next ctl

End Sub