以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现每月月底对表A的“第五列”进行批量赋值？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174015)
--  作者：lgz518
--  发布时间：2021/12/27 12:48:00
--  如何实现每月月底对表A的“第五列”进行批量赋值？
如何实现每月月底对表A的“第五列”进行批量赋值“KK"？

有二个问题：
1.如何实现在项目开判定是否为每月月底，如果是就对表A的“第五列”进行批量赋值“KK"?
2.由于定时设计每月月底执行，是要打开项目，没有打开项目就不能执行，如果在某个月底是放假三天，那超过设定时间，定时设计每月月底执行程序是因超时不执行？这个问题如何解决？

看帮助到期提醒的实例，其例中是开始日期与到期日期进行比对，上面没表字段的日期进行对比，所以不会做，请教老师指导，谢谢
--  作者：有点蓝
--  发布时间：2021/12/27 13:35:00
--  
1、参考：http://www.foxtable.com/webhelp/topics/1337.htm，判断当天Day等于最后一天DaysInMonth
2、专门做个服务端项目，放到服务器24小时运行

日期比较的方法都一样的
--  作者：lgz518
--  发布时间：2021/12/27 14:52:00
--  

1.专门做个服务端项目，放到服务器24小时运行，代码是放在 服务端项目UserLogged？

2，判断每月月底下面代码，报错，要怎么写，请指导，谢谢

Dim Days As Integer = Date.DaysInMonth(Year,Month)
Dim LastDay As Date = New Date(Year,Month,Days)
Dim d As Date=Dim LastDay As Date
If Date.Today.day = d Then
    Dim btn As WinForm.Button = Forms("表A定时操作").Controls("Button2")
    btn.PerformClick()
End If
--  作者：有点蓝
--  发布时间：2021/12/27 15:29:00
--  
1、原来是怎么样的现在还是怎么用呀，只不过换个项目。如果是要定时执行的就放到计划管理了
2、
Dim Days As Integer = Date.DaysInMonth(date.today.Year,date.today.Month)
if Days = date.today.day then
    Dim btn As WinForm.Button = Forms("表A定时操作").Controls("Button2")
    btn.PerformClick()
End If