| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于更新数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196055) |
| -- 作者：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 |
| -- 作者：有点蓝 -- 发布时间：2025/3/26 9:41:00 -- 代码看不出什么问题。2个表的数据有全部加载吗？ 加一个messagebox弹窗，然后把电脑时间调到23:50，测试到0点10前能不能看到弹窗
|
| -- 作者：xuzihang -- 发布时间：2025/3/26 9:49:00 -- 老师能不能是这样的代码在这里不好用啊 DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged()
|
| -- 作者：有点蓝 -- 发布时间：2025/3/26 9:52:00 -- 肯定可以的 |
| -- 作者：xuzihang -- 发布时间：2025/3/26 10:29:00 -- 弹窗口了 [此贴子已经被作者于2025/3/26 10:32:27编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2025/3/26 10:36:00 -- 弹窗代码放到if里面，如果可以弹出说明重置列是有执行的。 如果不行说明
1、datacolchanged事件代码有问题 2、数据没有加载 |
| -- 作者：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 |
| -- 作者：xuzihang -- 发布时间：2025/3/26 12:22:00 -- 谢谢老师，老师好用了，“到期日期”是重置列的列 |
| -- 作者：xuzihang -- 发布时间：2025/3/28 9:22:00 -- 老师在么，数据不加载用DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged() 好用么？ 目前是不加载没好用，有什么办法呢？
[此贴子已经被作者于2025/3/28 9:24:15编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2025/3/28 9:24:00 -- 只有加载的数据才能重置列了 |