ctl 和 ctl.name问题，用哪个，如何用？

sunredday

Option Compare Database

Public Sub cbodropdown([U][B][B]ctl As ComboBox[/B][/B][/U])

ctl.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[U][B](" & ctl.Name & ")"[/B][/U]
      End If
   Next ctl
      
End Sub

sunredday

THANK YOU.  THE WAY YOU TOUGHT ME IS ONE METHOD TO SOLVE THE QUESTIONG BETWEEN CTL AND IT'S NAME.

Trynew

用ctl.name，然后Sub cbodropdown改为：
Public Sub cbodropdown(ctlname As string)

controls(ctlname).Dropdown

End Sub

sunredday

我已经把他放到国外论坛了
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_2000&Number=217604&page=0&view=collapsed&sb=5&o=&fpart=1&vc=1&HPSESSID=

sunredday

Option Compare Database

Public Sub cbodropdown(ctl As ComboBox)

ctl.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