建一个任务栏，做生日提示，从通讯录按照姓名和出生日期提取，试了多次日期代码一直没试出来，总弹窗错误，是不是这句代码用的不对，New Date(Date.Today.Year, dt.Month, dt.Day) 老师帮忙看看那里问题，谢谢
在窗口AfterLoad
'开始生成今日订单情况任务栏显示具体数据
Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("通讯录").Compute("Count(姓名)", "出生日期 = #" & New Date(Date.Today.Year, dt.Month, dt.Day) & "#")'通讯录
Page = e.Form.Controls("TopicBar1").Pages.Add("今日提醒", "今日提醒")'一级菜单显示名称
Page.Links.Add("今日生日", "今日生日(" & cnt1 & ")人")'二级菜单显示名称 后面引用cnt1变量的分析数据?
[此贴子已经被作者于2023/4/8 15:12:42编辑过]
加好友 
发短信
Post By：2023/4/8 14:15:00 [只看该作者]
