以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  小项目求教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92130)

--  作者：凋零 --  发布时间：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编辑过]

--  作者：凋零 --  发布时间：2016/10/26 20:34:00 --    求教大神，如何快速导入，我有30多个老师的课程数据要汇总。。每个老师都50-80个学生。。。

--  作者：有点蓝 --  发布时间：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

--  作者：凋零 --  发布时间：2016/10/26 22:47:00 --   多谢蓝哥，我试试的。 这玩意真是书到用时方恨少。。。