请教如何根据选择列表框中的年份,自动更改日期控件中的年份

此主题相关图片如下:微信截图_20231229163016.png
组合框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