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

宿命的风 · 发表于 2005-7-28 02:26:00

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

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

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

yanwei82123300 · 发表于 2023-4-15 20:42:58

收藏起来!

netguestcn · 发表于 2017-1-8 20:40:32

学习

songjh258 · 发表于 2017-1-8 18:30:42

谢谢分享

xlb004 · 发表于 2015-3-22 09:10:56

rrrrrrrrrrr

xlb004 · 发表于 2015-3-22 08:55:16

3333333333333333333

心情如故 · 发表于 2015-3-21 19:49:05

谢谢

HOCKHE · 发表于 2012-9-1 10:59:15

1024

dfang · 发表于 2012-8-26 22:57:30

chshb · 发表于 2012-6-12 15:23:39

好贴，收藏。

帐号		自动登录	找回密码
密码			注册

[宏/菜单/工具栏] [分享][原创]组合框的又一用法

群介绍
主题无相 (随机显示版	同地区群块其他地区)