Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于更新数据


  共有124人关注过本帖树形打印复制链接

主题：关于更新数据
帅哥哟，离线，有人找我吗？
xuzihang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		关于更新数据  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/26 9:49:00 [显示全部帖子]

老师能不能是这样的代码在这里不好用啊
DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged()
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/26 10:29:00 [显示全部帖子]

弹窗口了
[此贴子已经被作者于2025/3/26 10:32:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/26 12:22:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/28 9:22:00 [显示全部帖子]

老师在么，数据不加载用DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged() 好用么？

目前是不加载没好用，有什么办法呢？
[此贴子已经被作者于2025/3/28 9:24:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/28 9:25:00 [显示全部帖子]

目前是不加载没好用，有什么办法呢？

 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/28 9:45:00 [显示全部帖子]

老师这样用行不
Dim d As Date = Date.now 
If d.hour = 0 AndAlso d.Minute <= 10 Then '每天0点0分~0点10操作
    If Forms("会员充值").Show Then'打开窗口
        Forms("会员充值").Close() '关闭窗口
    Else
        Forms("会员充值").Open() '打开窗口
        DataTables("会员充值").DataCols("入会日期").RaiseDataColChanged()
        DataTables("会员充值").DataCols("到期日期").RaiseDataColChanged()
    End If 
    DataTables("美牙").DataCols("日期").RaiseDataColChanged()
    For Each dt As DataTable In DataTables
        dt.Save() '保存所有表
        ' msgbox("已保存 !",64,"提示")
    Next
ElseIf d.hour = 1 AndAlso d.Minute <= 10 Then '每天1点0分~1点10操作
    If Forms("会员充值").Open() Then'打开窗口
        Forms("会员充值").Close() '关闭窗口
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/28 9:46:00 [显示全部帖子]

老师下面的两种用法用设么区别？？

Forms("会员充值").Show '打开窗口
Forms("会员充值").Open() '打开窗口
[此贴子已经被作者于2025/3/28 9:46:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xuzihang
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：351 积分：2588 威望：0 精华：0 注册：2012/6/23 11:15:00 		  发帖心情 Post By：2025/3/28 10:11:00 [显示全部帖子]

老师像13楼那样用行么？语法有什么需要优化的？

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询