[分享][原创]组合框的又一用法

宿命的风

新尝试的一个用法,可以快速录入数据,不知道有没有已经在用了!



rivate Sub Combo0_GotFocus()

  Me.Combo0.ColumnWidths = "1.2厘米;2.544厘米"   '显示第一列

  Me.Combo0.Dropdown                                           '展开列表

End Sub

rivate Sub Combo0_LostFocus()

  Me.Combo0.ColumnWidths = "0厘米;2.544厘米"      '隐藏第一列,使组合框显示为第二列的内容

End Sub

游客，如果您要查看本帖隐藏内容请回复

宿命的风

今天算长了见识了。.....谢谢站长的指教!