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


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

主题:数据合并

帅哥,在线噢!
有点蓝
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望: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 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/4/2 23:21:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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

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

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200403142742.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望: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


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

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

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


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

这个是原个人课程表

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200403142742.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望: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 下一页