[求助]做一个值班排班提醒系统，遇到问题，请专家解决一下，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]做一个值班排班提醒系统，遇到问题，请专家解决一下，谢谢

共有4791人关注过本帖树形打印复制链接主题：[求助]做一个值班排班提醒系统，遇到问题，请专家解决一下，谢谢

happy2010

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：232 积分：2293 威望：0 精华：0 注册：2016/10/9 16:10:00

Post By：2023/4/4 11:26:00 [显示全部帖子]

AfterLoad

e.Form.Controls("DateTimePicker1").Value = Date.Today

'也可以用Label标签显示日期， e.Form.Controls("Label22").Text = Format（ Date.Today，"yyyy年MM月dd日"）

Tables("值班表").Filter = "值班日期=#" & Date.Today & "#"

Dim dr As DataRow = DataTables("值班表").find( "值班日期=#" & Date.Today.AddDays(1) & "#")

If dr IsNot Nothing Then

e.Form.Controls("TextBox4").Text = dr("带班领导")

e.Form.Controls("TextBox5").Text = dr("值班科长")

End If

主题：[求助]做一个值班排班提醒系统，遇到问题，请专家解决一下，谢谢