数据合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有10795人关注过本帖树形打印复制链接主题：数据合并

有点蓝

小大 51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/9 21:20:00 [只看该作者]

比如：

Dim s As String = DataTables("灵川中心表一").GetComboListString("星期_一","教师='a' and 星期_一 is not null")

msgbox(s)

从星期一到星期五的数据都提取出来，然后逐一计算里面的学科的次数

透明人生

小大 52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：223 积分：1738 威望：0 精华：0 注册：2019/10/19 23:00:00

Post By：2020/4/9 21:32:00 [只看该作者]

教师的姓名是不能指定的，代码先写，数据是后填的。

有点蓝

小大 53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/9 21:59:00 [只看该作者]

这里只是做个例子，至于怎么用自己思考一下，比如使用getvalues获取所有教师名称，再遍历。学会理解代码的逻辑，而不是只会抄

透明人生

小大 54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：223 积分：1738 威望：0 精华：0 注册：2019/10/19 23:00:00

Post By：2020/4/9 22:44:00 [只看该作者]

不好意思，初学者对比较复杂的代码还搞不懂，老师帮我改改下面的代码。

[此贴子已经被作者于2020/4/19 16:25:02编辑过]

有点蓝

小大 55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/9 22:55:00 [只看该作者]

拆分数据：http://www.foxtable.com/webhelp/topics/0245.htm

使用字典记录每个学科的次数：http://www.foxtable.com/webhelp/topics/1945.htm

然后再遍历字典，把数据合并到一个字符串里

Dim xk As String = "语文|数学|英语"

Dim dict As new Dictionary(of String,Integer)

For Each c As String In xk.Split("|")

If dict.ContainsKey(c) Then

dict(c) = dict(c)+1

Else

dict.Add(c,1)

End If

xk = "音乐|数学|英语"

For Each c As String In xk.Split("|")

If dict.ContainsKey(c) Then

dict(c) = dict(c)+1

Else

dict.Add(c,1)

End If

Dim sm As String

For Each key As String In dict.Keys

sm = sm & dict(key) & key & "+"

sm = sm.trim("+")

msgbox(sm)

透明人生

小大 56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：223 积分：1738 威望：0 精华：0 注册：2019/10/19 23:00:00

Post By：2020/4/10 18:01:00 [只看该作者]

太难了，试了一天了，都写不好。

有点蓝

小大 57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/11 11:02:00 [只看该作者]

For Each Product As String In DataTables("灵川中心表一").GetValues("教师" ,"教师 is not null")

Dim dict As new Dictionary(of String,Integer)

Dim srr() As String = {"一","二","三","四","五"}

For Each s As String In srr

Dim xk As String = DataTables("灵川中心表一").GetComboListString("星期_" & s ,"教师='" & Product & "' and 星期_" & s & " is not null" )

If xk > "" Then

For Each c As String In xk.Split("|")

If dict.ContainsKey(c) Then

dict(c) = dict(c)+1

Else

dict.Add(c,1)

End If

Dim sm As String = ""

For Each key As String In dict.Keys

sm = sm & dict(key) & key & "+"

sm = Product & ": " & sm.trim("+")

Output.Show(sm)

透明人生

小大 58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：223 积分：1738 威望：0 精华：0 注册：2019/10/19 23:00:00

Post By：2020/4/11 22:08:00 [只看该作者]

1、教师所教的学科的节数少了，比如a教师的语文是6节，而底下统计是3节；

2、统计列宽不够，能不能自动占几格，一次性显示；

3、应该加入筛选，后面的学科数统计需要筛选后再统计。

此主题相关图片如下：原课程表.png

此主题相关图片如下：合成后的总课程表.png

[此贴子已经被作者于2020/4/11 22:16:21编辑过]

有点蓝

小大 59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/12 21:43:00 [只看该作者]

1、贴出您完整代码

2、只能把列拉宽，没有办法占几个，这个不是execl

3、既然知道自己加上不就行了

透明人生

小大 60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：223 积分：1738 威望：0 精华：0 注册：2019/10/19 23:00:00

Post By：2020/4/13 13:36:00 [只看该作者]

[此贴子已经被作者于2020/4/19 16:23:46编辑过]

下一主题 >> << 上一主题

总数 82 上一页 1 2 3 4 5 6 7 8 9 下一页

主题：数据合并