Foxtable(狐表)用户栏目专家坐堂 → 行自动复制


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

主题:行自动复制

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


加好友 发短信
等级:幼狐 帖子:52 积分:487 威望:0 精华:0 注册:2019/12/27 14:58:00
行自动复制  发帖心情 Post By:2023/12/4 9:24:00 [只看该作者]

各位大侠:
A表有“计划保养日期”、“保养内容”-------

当  计划保养日期=今天的日期

执行
A表的  计划保养日期   复制到   B表的   报修日期
A表的  保养内容        复制到   B表的   原因分析
------

谢谢

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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/4 9:37:00 [只看该作者]

如果B表有好多行数据,A表的  计划保养日期   复制到   B表的哪一行的   报修日期?

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


加好友 发短信
等级:幼狐 帖子:52 积分:487 威望:0 精华:0 注册:2019/12/27 14:58:00
  发帖心情 Post By:2023/12/4 10:07:00 [只看该作者]

B表是新增的行

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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/4 10:23:00 [只看该作者]

表A,datacolchanged事件


If e.DataCol.Name = "计划保养日期" Then 
    If 
e.DataRow("计划保养日期") = date.today Then 
        Dim
 dr As DataRow  = DataTables("表B").addnew
        
dr("报修日期") =e.DataRow("计划保养日期")
        dr("原因分析") =e.DataRow("保养内容")
    End
 If
End
 If

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


加好友 发短信
等级:幼狐 帖子:52 积分:487 威望:0 精华:0 注册:2019/12/27 14:58:00
  发帖心情 Post By:2023/12/4 14:37:00 [只看该作者]

非常感谢,成功了

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


加好友 发短信
等级:幼狐 帖子:52 积分:487 威望:0 精华:0 注册:2019/12/27 14:58:00
  发帖心情 Post By:2023/12/6 9:25:00 [只看该作者]

上面的代码好像不行,
我把“计划保养日期”修改成2023年12月7日,然后把电脑的时间修改成12月6号23点28分,等到电脑显示12月7日后查看表B,没有增加相关行
但是我现在把“计划保养日期”从12月20日修改成12月7日,表B中会增加相关方
不知道哪里出了问题?

表A,datacolchanged事件


If e.DataCol.Name = "计划保养日期" Then 
    If 
e.DataRow("计划保养日期") = date.today Then 
        Dim
 dr As DataRow  = DataTables("表B").addnew
        
dr("报修日期") =e.DataRow("计划保养日期")
        dr("原因分析") =e.DataRow("保养内容")
    End
 If
End
 If



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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/6 9:36:00 [只看该作者]

电脑的时间走动是不可能会影响程序的。

被动处理可以这样。

在项目事件AfterOpenProject里添加代码重置列,比如:http://www.foxtable.com/webhelp/topics/1587.htm
DataTables("表A").DataCols("计划保养日期").RaiseDataColChanged()

这样就可以在打开项目的时候,把符合当天时间的数据处理一下

 回到顶部