Foxtable(狐表)用户栏目专家坐堂 → [求助]总表A表包含所有数据,如何和四个子表BCDE保持同步更新?


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

主题:[求助]总表A表包含所有数据,如何和四个子表BCDE保持同步更新?

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


加好友 发短信
等级:婴狐 帖子:5 积分:124 威望:0 精华:0 注册:2018/6/20 23:02:00
[求助]总表A表包含所有数据,如何和四个子表BCDE保持同步更新?  发帖心情 Post By:2018/11/16 17:01:00 [只看该作者]

A表是包含四个项目时间数据的总表,BCDE表是按照四个不同项目时间划分的子表。
如何实现在A表新增一条数据,这条数据根据项目时间的不同,自动更新到对应的BCDE表上
而且当在A表删除这条数据的时候,BCDE表上对应的这条数据也会自动删除。
自己试了很多次都没有成功,请教下论坛上的高手们该怎么办。

For Each dr1 As DataRow In DataTables("A").Select("[项目时间] = 'B'")
    
Dim dr2 As DataRow = DataTables("testB").AddNew()
    
For Each dc As DataCol In DataTables("A").DataCols
        
dr2(dc.Name) = dr1(dc.name)
    
Next

Next
For Each dr1 As DataRow In DataTables("A").Select("[项目时间] = 'C'")
    
Dim dr2 As DataRow = DataTables("testC").AddNew()
    
For Each dc As DataCol In DataTables("A").DataCols
        
dr2(dc.Name) = dr1(dc.name)
    
Next

Next
For Each dr1 As DataRow In DataTables("A").Select("[项目时间] = 'D'")
    
Dim dr2 As DataRow = DataTables("testD").AddNew()
    
For Each dc As DataCol In DataTables("A").DataCols
        
dr2(dc.Name) = dr1(dc.name)
    
Next

Next

For Each dr1 As DataRow In DataTables("A").Select("[项目时间] = 'E'")
    
Dim dr2 As DataRow = DataTables("testE").AddNew()
    
For Each dc As DataCol In DataTables("A").DataCols
        
dr2(dc.Name) = dr1(dc.name)
    
Next

Next

也有在DataColChanged上设置上有新增的会自动更新,但是不会设置DataRowDeleting

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/16 17:38:00 [只看该作者]

1、BCDE表是不需要的。

 

2、BCDE表可以使用查询表的方式,直接从A表得到

 

http://www.foxtable.com/webhelp/scr/2321.htm

 

3、或者,参考

 

http://www.foxtable.com/webhelp/scr/2490.htm

 


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


加好友 发短信
等级:婴狐 帖子:5 积分:124 威望:0 精华:0 注册:2018/6/20 23:02:00
  发帖心情 Post By:2018/11/16 18:11:00 [只看该作者]

感谢感谢,这就研究一下

 回到顶部