Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下拉列表框的年份值自动更新


  共有3895人关注过本帖树形打印复制链接

主题：下拉列表框的年份值自动更新
美女呀，离线，留言给我吧！
lfz
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：49 积分：494 威望：0 精华：0 注册：2021/11/16 13:45:00 		下拉列表框的年份值自动更新  发帖心情 Post By：2022/1/8 17:56:00 [只看该作者]

下拉列表框的年份值自动更新自动生成呢,每年加一次代码

Dim cbx As WinForm.ComboBox = e.Form.Controls("ComboBox1") '所属期
Select Case vars("y")
    Case  "2018"
        cbx.ComboList = "2018年1月|2018年2月|2018年3月|2018年4月|2018年5月|2018年6月|2018年7月|2018年8月|2018年9月|2018年10月|2018年11月|2018年12月"
    Case "2019"
        cbx.ComboList = "2019年1月|2019年2月|2019年3月|2019年4月|2019年5月|2019年6月|2019年7月|2019年8月|2019年9月|2019年10月|2019年11月|2019年12月"
    Case "2020"
        cbx.ComboList = "2020年1月|2020年2月|2020年3月|2020年4月|2020年5月|2020年6月|2020年7月|2020年8月|2020年9月|2020年10月|2020年11月|2020年12月"
    Case "2021"
        cbx.ComboList = "2021年1月|2021年2月|2021年3月|2021年4月|2021年5月|2021年6月|2021年7月|2021年8月|2021年9月|2021年10月|2021年11月|2021年12月"
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110555 积分：562665 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/9 19:59:00 [只看该作者]

根据当前日期直接生成即可，没有必要使用变量

dim year as string = "|" & date.today.year & "年"
dim str as string
for i as integer = 1 to 12
str = str & year & i & "月"
next
msgbox(str)
Dim cbx As WinForm.ComboBox = e.Form.Controls("ComboBox1") '所属期
cbx.ComboList = str.trim("|")
 回到顶部
美女呀，离线，留言给我吧！
lfz
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：49 积分：494 威望：0 精华：0 注册：2021/11/16 13:45:00 		回复：（有点蓝）根据当前日期直接生成即可，没有必要...  发帖心情 Post By：2022/1/10 11:03:00 [只看该作者]

这段代码我也学习了,不过老师,我的这个变量是根据数据库的名称提取转换的,每年一个帐套数据库,比如:A公司2020.MDB,A公司2021.MDB  如果我还是想按照原来的思路怎样写代码呢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110555 积分：562665 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/10 11:10:00 [只看该作者]

那就获取数据库名称作为年份呀

不然就只能每年改一次代码了
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询