一个简单的列表框取值当年任意月份的示例。

swo · 发表于 2003-3-30 07:34:00

提示: 作者被禁止或删除内容自动屏蔽

jhzlzc29 · 发表于 2003-3-31 04:17:00

不会吧，老大我刚才今天问你就发上来呀

eio · 发表于 2003-4-1 01:56:00

作用不大

swo · 发表于 2003-4-1 20:36:00

提示: 作者被禁止或删除内容自动屏蔽

goto2008 · 发表于 2007-12-24 21:26:35

踏破铁鞋无觅处。。。。。谢谢SWO大哥。

cyber-bobo · 发表于 2007-12-25 01:00:33

请问如果改为当前月份的前后各三个月的月份该如何修改？谢谢！

cyber-bobo · 发表于 2007-12-25 01:33:29

哈哈，自问自答：

Private Sub Form_Load()
Dim a As Long
Dim b As String
Dim c As String
For a = 3 To -3 Step -1

b = Format(DateAdd("m", a, Date), "yy年m月份")
c = b & ";" & c
Me.Combo0.RowSourceType = "Value List"

Next
Me.Combo0.RowSource = c
End Sub

linag516 · 发表于 2008-8-27 20:44:43

[:50] [:31] [:31]

OCEANWU66 · 发表于 2008-9-26 00:47:43

看看不

changweiren · 发表于 2008-9-27 22:57:21

回复回复再回复

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

swo swo 当前离线技术点技术点 V币点积分 47013 IP卡狗仔卡	电梯直达 1^# 发表于 2003-3-30 07:34:00 \| 只看该作者 \|倒序浏览 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽
swo swo 当前离线技术点技术点 V币点积分 47013 IP卡狗仔卡	分享到: QQ好友和群 QQ空间腾讯微博腾讯朋友收藏0 分享淘帖0 订阅
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡

swo swo 当前离线技术点技术点 V币点积分 47013 IP卡狗仔卡	4^# 楼主\| 发表于 2003-4-1 20:36:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽
swo swo 当前离线技术点技术点 V币点积分 47013 IP卡狗仔卡
	回复支持反对使用道具举报显身卡

主题相关群

地区相关群[您还没设置居住地]

一个简单的列表框取值当年任意月份的示例。

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

群介绍
Access免费培训群2 (792054000)