Foxtable(狐表)用户栏目专家坐堂 → 按条件刷新数据


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

主题:按条件刷新数据

帅哥哟,离线,有人找我吗?
1234567
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:5676 威望:0 精华:0 注册:2013/2/18 17:46:00
按条件刷新数据  发帖心情 Post By:2024/7/15 14:32:00 [只看该作者]

LockBaseMainForm()

DataTables("任务单").StopRedraw()
DataTables("任务单").RemoveFor("更新时间  = #" & Date.Today & "#")
DataTables("任务单").AppendLoad("更新时间  = #" & Date.Today & "#")
DataTables("任务单").ResumeRedraw()

DataTables("项目阶段").StopRedraw()
DataTables("项目阶段").RemoveFor("更新时间  = #" & Date.Today & "#")
DataTables("项目阶段").AppendLoad("更新时间  = #" & Date.Today & "#")
DataTables("项目阶段").ResumeRedraw()

DataTables("零件加工").StopRedraw()
DataTables("零件加工").RemoveFor("更新时间  = #" & Date.Today & "#")
DataTables("零件加工").AppendLoad("更新时间  = #" & Date.Today & "#")
DataTables("零件加工").ResumeRedraw()

DataTables("工艺内容").StopRedraw()
DataTables("工艺内容").RemoveFor("更新时间  = #" & Date.Today & "#")
DataTables("工艺内容").AppendLoad("更新时间  = #" & Date.Today & "#")
DataTables("工艺内容").ResumeRedraw()

DataTables("工步").StopRedraw()
DataTables("工步").RemoveFor("更新时间  = #" & Date.Today & "#")
DataTables("工步").AppendLoad("更新时间  = #" & Date.Today & "#")
DataTables("工步").ResumeRedraw()

DataTables("过程记录").StopRedraw()
DataTables("过程记录").RemoveFor("更新时间  = #" & Date.Today & "#")
DataTables("过程记录").AppendLoad("更新时间  = #" & Date.Today & "#")
DataTables("过程记录").ResumeRedraw()

UnLockBaseMainForm()

出现错误提醒


.NET Framework 版本:4.0.30319.1
Foxtable 版本:2022.8.18.1
错误所在事件:
详细错误信息:
Column '_Identify' is constrained to be unique.  Value '29176' is already present.

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109387 积分:556591 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/15 14:46:00 [只看该作者]

更新时间列有没有时分秒值?

 回到顶部
帅哥哟,离线,有人找我吗?
1234567
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:5676 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/7/15 14:49:00 [只看该作者]

没有时分秒,随机出现错误报警。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109387 积分:556591 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/15 14:54:00 [只看该作者]

改为加载,不要使用追加
DataTables("任务单").StopRedraw()
DataTables("任务单").LoadFilter  = "更新时间  = #" & Date.Today & "#"
DataTables("任务单").Load
DataTables("任务单").ResumeRedraw()


 回到顶部