Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据合并


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

主题：数据合并
帅哥哟，离线，有人找我吗？
有点蓝
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106320 积分：540735 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/3 16:26:00 [只看该作者]

完整代码发上来看看

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


加好友 发短信
等级：童狐 帖子：223 积分：1732 威望：0 精华：0 注册：2019/10/19 23:00:00 		  发帖心情 Post By：2020/4/3 19:35:00 [只看该作者]


[此贴子已经被作者于2020/4/19 16:22:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106320 积分：540735 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/5 20:23:00 [只看该作者]

……
For ii = cnt To 0 Step -1
    
    Tables("课程表").Position = ii
    
    Dim r As Row = Tables("课程表").current
    
    Dim r2 As Row = Tables("课程表").InsertNew
    r2("学校") = r("学校")
    
    r2("节序") = r("节序")
    filter = Tables("灵川中心表一").FIlter
    
    If filter > "" Then filter = filter & " And "
    filter = filter  & " 学校='" & r("学校") & "' and 节序='" & r("节序") & "'"
    For Each s As String In sr
        
        For Each dr1 As DataRow In DataTables("灵川中心表一").Select(Tables("灵川中心表一").FIlter)
            
            r2("星期" & s & "_" & dr1("年级") & "_" & dr1("班级")) =  dr1("教师")
        Next
        
    Next
    
Next
……
 回到顶部
帅哥哟，离线，有人找我吗？
透明人生
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1732 威望：0 精华：0 注册：2019/10/19 23:00:00 		  发帖心情 Post By：2020/4/6 21:07:00 [只看该作者]

还是不行，教师还是同一人。

图片点击可在新窗口打开查看此主题相关图片如下：原课程表.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：合成后的总课程表.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

43楼
For Each dr1 As DataRow In DataTables("灵川中心表一").Select(Tables("灵川中心表一").FIlter)

改为

For Each dr1 As DataRow In DataTables("灵川中心表一").Select(filter )
 回到顶部
帅哥哟，离线，有人找我吗？
透明人生
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1732 威望：0 精华：0 注册：2019/10/19 23:00:00 		  发帖心情 Post By：2020/4/6 21:38:00 [只看该作者]

谢谢老师，辛苦了，可以了！

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


加好友 发短信
等级：童狐 帖子：223 积分：1732 威望：0 精华：0 注册：2019/10/19 23:00:00 		  发帖心情 Post By：2020/4/6 21:43:00 [只看该作者]

还是有小问题，没学科的也有老师。学科和教师也没有一一对应。原课程中，语文是a教师，生成了也有b教师。
是不是应该把学校-年级-班级-节序-星期都绑定在一起，不然一周当中，同一个班级的同一节序应该有好几位老师，所以不行。
只有把星期都绑定进去，那才能是唯一的。因为一天中，某一个节序的上课老师肯定只有一人。

图片点击可在新窗口打开查看此主题相关图片如下：合成后的总课程表.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/4/6 22:30:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
透明人生
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1732 威望：0 精华：0 注册：2019/10/19 23:00:00 		  发帖心情 Post By：2020/4/8 18:31:00 [只看该作者]

这个是不是代码不能写的

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


加好友 发短信
等级：超级版主 帖子：106320 积分：540735 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/9 8:53:00 [只看该作者]

For ii = cnt To 0 Step -1
    Tables("课程表").Position = ii    
    Dim r As Row = Tables("课程表").current
    Dim r2 As Row = Tables("课程表").InsertNew
    r2("学校") = r("学校")
    r2("节序") = r("节序")
    filter = Tables("灵川中心表一").FIlter    
    If filter > "" Then filter = filter & " And "
    filter = filter  & " 学校='" & r("学校") & "' and 节序='" & r("节序") & "'"
    For Each s As String In sr       
Dim f2 As String = filter   & " and 星期_" & s & " is not null" 
        For Each dr1 As DataRow In DataTables("灵川中心表一").Select(f2)            
            r2("星期" & s & "_" & dr1("年级") & "_" & dr1("班级")) =  dr1("教师")
        Next        
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
透明人生
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1732 威望：0 精华：0 注册：2019/10/19 23:00:00 		  发帖心情 Post By：2020/4/9 21:03:00 [只看该作者]

谢谢老师，辛苦了，可以了！每一位教师教了哪几节课，共几节，这个应该怎么写？如下图：

图片点击可在新窗口打开查看此主题相关图片如下：合成后的总课程表.png
图片点击可在新窗口打开查看
 回到顶部
总数 82 上一页 1 2 3 4 5 6 7 8 9 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 4 次数据查询