Foxtable(狐表) → 用户栏目 → 专家坐堂 → 小项目求教


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

主题：小项目求教
帅哥哟，离线，有人找我吗？
凋零
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：110 积分：998 威望：0 精华：0 注册：2015/3/4 21:07:00 		小项目求教  发帖心情 Post By：2016/10/26 20:30:00 [只看该作者]

 我要做一个小项目，但是资料不是很全面，就是分数筛选与导入导出，但是在获取数据时，遇到有个比较棘手的问题。就是可以直接利用的资料少。相当于，我要在销售表的数据支持下，回填客户表和产品表。。
就是下面的情况将0000表的数据，按规律导入到  1111表 ，并且直接从学科提取对应的老师，和2222表  老师的学科信息。
0000
学科    教师工号   教师名字  班级         学号        学生名字                 
英语    133    Harry    2016级5班    160527    王翘
英语    133    Harry    2016级5班    160528    吴婷
英语    133    Harry    2016级5班    160529    吴兰
英语    133    Harry    2016级5班    160530    高飏
语文    136    孙迪    2016级5班    160527    王翘
语文    136    孙迪    2016级1班    160102    张昊
语文    136    孙迪    2016级1班    160103    孙以宁
语文    136    孙迪    2016级1班    160104    刘若风

1111
学号  姓名  班级  数学老师  英语老师  语文老师。。。。。。。。。。体育老师
160527    王翘   2016级5班  Harry   孙迪。。。。。。。。。。张老师。。。王老师。。。

2222
老师工号  姓名 。。学科
133   Harry   英语
136   孙迪     语文
[此贴子已经被作者于2016/10/26 20:32:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
凋零
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：110 积分：998 威望：0 精华：0 注册：2015/3/4 21:07:00 		  发帖心情 Post By：2016/10/26 20:34:00 [只看该作者]

 求教大神，如何快速导入，我有30多个老师的课程数据要汇总。。每个老师都50-80个学生。。。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/26 21:41:00 [只看该作者]

Dim xh As List(Of String) = DataTables("0000").GetValues("学号") '取得所有不重复学号

For Each xm As String In xh '循环每个学号
    Dim drs As List(of DataRow) = DataTables("0000").Select("学号 = '" & xm & "'") '查询和这个学号有关的记录
    Dim dr As DataRow = DataTables("1111").AddNew()
    Dim r As DataRow = drs(0)
    dr("学号") = xm
    dr("姓名") = r("姓名")
    dr("班级") = r("班级")
    For Each r As DataRow In drs 
        dr(r("学科") & "老师") = r("教师名字") '增加学科的来是名字
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
凋零
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：110 积分：998 威望：0 精华：0 注册：2015/3/4 21:07:00 		  发帖心情 Post By：2016/10/26 22:47:00 [只看该作者]

多谢蓝哥，我试试的。 这玩意真是书到用时方恨少。。。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询