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


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

主题:数据合并

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


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

谢谢老师,可以了!
学科的和怎么改为:(如:6语文+2体育+3美术 = 11节)
    Dim sm As String = ""
    For Each key As String In dict.Keys
        sm = sm & dict(key) & key & "+" 
If sm > "" Then
    sm = Product & ": " & sm.trim("+") & "= " & dict(key) & "节" 
   ' Output.Show(sm)
    Dim rr As Row = Tables("课程表").AddNew()
    rr("节序") = sm
End If
Next
Next 
[此贴子已经被作者于2020/4/15 22:35:03编辑过]

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


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

遍历字典的值,求和

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


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

老师,还理解不了,能不能具体点!

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


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

Dim sm As String = ""
Dim sum As Integer
For Each key As String In dict.Keys
    sm = sm & dict(key) & key & "+"
    sum = sum + dict(key)
Next

If sm > "" Then
    sm = Product & ": " & sm.trim("+") & "= " & sum & "节"
    ' Output.Show(sm)
    Dim rr As Row = Tables("课程表").AddNew()
    rr("节序") = sm
End If

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


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

第二行的会把第一行的都加起来:
b: 1数学+3科学+1综合与实践1= 5节
c: 2英语= 7节

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


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

Dim sum As Integer
改为
Dim sum As Integer = 0

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


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

为什么等于0就行,等于0表达是什么意思?

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


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

每次遍历都把初始值设置为0

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


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

明白了,谢谢老师!

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


加好友 发短信
等级:婴狐 帖子:3 积分:75 威望:0 精华:0 注册:2021/1/19 20:03:00
  发帖心情 Post By:2021/1/19 20:17:00 [只看该作者]

这个怎么操作分配老师课表呀?

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