以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  年份列表项目  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145685)

--  作者:王冬浜
--  发布时间:2020/2/4 18:20:00
--  年份列表项目
视频自定义查询窗口讲解时,年份——自定义列表项目,我在仿做时遇到了问题,视频实际上也有问题,详见附加,请大师赐教为谢!!修改一下代码。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:视频-自定义查询窗口讲解中的问题.rar


--  作者:有点蓝
--  发布时间:2020/2/4 20:12:00
--  
Dim year As Integer = Date.Today.Year \'返回当前系统日期的年份
Dim val As String = year \'转化成字符型变量
For i As Integer = 1 To 10
    val = val & "|" & year - i
Next

--  作者:王冬浜
--  发布时间:2020/2/4 20:31:00
--  
谢谢指导,成功了。