- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]日期变更 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189842)
-- 发布时间：2023/12/29 16:32:00
-- [求助]日期变更
请教如何根据选择列表框中的年份，自动更改日期控件中的年份
此主题相关图片如下：微信截图_20231229163016.png
-- 发布时间：2023/12/29 16:36:00
--
组合框valuechanged事件
if e.form.controls("日期").value <> nothing andalso e.sender.text > "" then
dim d as date = e.form.controls("日期").value
e.form.controls("日期").value = new date(cint(e.sender.text),d.month,d.day)
end if