标题：关于更新数据

1楼

xuzihang 发表于：2025/3/26 9:30:00

请教老师：每天0点0分~0点10操作重置列功能，更新到期的剩余天数和判断状态

在计划里做了 600000 的间隔，代码如下，没好用，请教老师指点

Dim d As Date = Date.now

If d.hour = 0 AndAlso d.Minute <= 10 Then '每天0点0分~0点10操作

DataTables("美牙").DataCols("日期").RaiseDataColChanged()

DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged()

End If

2楼

有点蓝 发表于：2025/3/26 9:41:00

代码看不出什么问题。2个表的数据有全部加载吗？

加一个messagebox弹窗，然后把电脑时间调到23:50，测试到0点10前能不能看到弹窗

3楼

xuzihang 发表于：2025/3/26 9:49:00

老师能不能是这样的代码在这里不好用啊

DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged()

4楼

有点蓝 发表于：2025/3/26 9:52:00

肯定可以的

5楼

xuzihang 发表于：2025/3/26 10:29:00

弹窗口了

[此贴子已经被作者于2025/3/26 10:32:27编辑过]

6楼

有点蓝 发表于：2025/3/26 10:36:00

弹窗代码放到if里面，如果可以弹出说明重置列是有执行的。

如果不行说明

1、datacolchanged事件代码有问题

2、数据没有加载

7楼

xuzihang 发表于：2025/3/26 12:06:00

老师那怎么改啊

Dim d As Date = Date.now

If d.hour = 0 AndAlso d.Minute <= 10 Then '每天0点0分~0点10操作

msgbox("提示内容", 64, "提示")

DataTables("美牙").DataCols("日期").RaiseDataColChanged()

DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged()

End If

8楼

xuzihang 发表于：2025/3/26 12:22:00

谢谢老师，老师好用了，“到期日期”是重置列的列

共8 条记录, 每页显示 10 条, 页签: [1]