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


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

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


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

给临时表添加一个列名为“_sortkey”的列即可

Dim b As New SQLGroupTableBuilder("课程表","灵川中心表一")
b.ConnectionName = "城厢区灵川中心小学数据库"
b.FIlter = DataTables("灵川中心表一").loadFIlter
If Tables("灵川中心表一").FIlter > "" Then
    b.FIlter = IIF(b.FIlter > "", b.FIlter & " and ","") & Tables("灵川中心表一").FIlter
End If
b.Groups.AddDef("学校")
b.Groups.AddDef("节序")
b.Totals.AddExp("_sortkey","0")
b.build()

Dim i As Integer = 1
For Each dr As DataRow In DataTables("课程表").Select("","学校,节序")
    dr("_sortkey") = i*10
i += 1
Next
Dim cnt As Integer = Tables("课程表").Rows.Count - 1
For i = cnt To 0 Step -1
    Tables("课程表").Position = i
    Dim r As Row = Tables("课程表").current
    Dim r2 As Row = Tables("课程表").InsertNew
    r2("学校") = r("学校")
    r2("节序") = r("节序")
Next
[此贴子已经被作者于2020/4/2 23:07:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
透明人生
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

上午第一节插入的行在第一行，不能跑在第二行，其他的正常。

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


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

无所谓前后，先插入，再填充数据

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


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

学科连续两行在一行，等下教师行就插不了

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


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

隔一行在填充咯。逻辑问题其实就是思维的问题。就算这是一张纸，要手抄是不是也要隔一行再抄呀！

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


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

给学校列和节序列合并后就可以了，但教师行全是同一人。
Dim cnt As Integer = Tables("课程表").Rows.Count - 1
For ii = cnt To 0 Step -1
    Tables("课程表").Position = ii
    Dim r As Row = Tables("课程表").current
    Dim r2 As Row = Tables("课程表").InsertNew
For Each s As String In sr
For Each dr1 As DataRow In DataTables("中心表一").Select(Tables("中心表一").FIlter)
    r2("星期" & s & "_" & dr1("年级") & "_" & dr1("班级")) = dr1("教师") 
   r2("学校") = r("学校")
    r2("节序") = r("节序")

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


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

取数据的表格教师的设计不合理吧

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


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

这个是原个人课程表

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


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

很明显不合理。比如第三行老师a，周一教英语，周三教语文？！老师应该和学科一样设计

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


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

小学教师基本上是一人教多个学科，不单单一科。应该把找出一位教师对应几个科目，然后在相应的学科下列进行填充。
现在的代码，应该是教师对应的是每天的行，所以全部都是同一人。
 回到顶部
总数 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.04492 秒, 4 次数据查询