以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89299)
--  作者：刘林
--  发布时间：2016/8/18 19:19:00
--  自动统计
Dim Vals As List(of String())
Vals = DataTables("成绩").GetValues("学校代码|单位名称|年级代码|班级")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("统表").AddNew()
    dr("学校代码") = Vals(i)(0)
    dr("单位名称") = Vals(i)(1)
    dr("年级代码") = vals(i)(2)
    dr("班级") = vals(i)(3)
。。。

Next


请问我想把成绩表中学校代码，单位名称，年级代码，班级不重复填到统表中，有几个问题请教

1、如果做成个按钮，会执行一次同样数据行在统计中再次增加，如何检测到有学校代码，单位名称，年级代码，班级一样的跳过不再新新记录。
2、如果统表中有空行，它也会新增，可否直接填充空行走，不够的再新增行。
3、能不能在。。。处增加统表中的”人数“，”语文平均分“分字段统计，如能，请帮忙写个下代码。

不好意思，初学不懂，请高手多指教，通过你的代码，我才会更深刻理解其意义，谢谢！！
--  作者：czy
--  发布时间：2016/8/18 20:16:00
--  

直接填充好了

 

Dim f As New Filler
f.SourceTable = DataTables("成绩")
f.SourceCols = "学校代码,单位名称,年级代码,班级"
f.DataTable = DataTables("统表")
f.DataCols = "学校代码,单位名称,年级代码,班级"
f.ExcludeExistValue = True
f.ExcludeNullValue = True
f.Fill()

--  作者：刘林
--  发布时间：2016/8/18 20:34:00
--  
这个办法好，学习了，再请问下，统表中有人数，语文平均分，语文优秀率，如何从成绩表统计到统表直接填充，请帮忙加上这个示例，谢谢
--  作者：大红袍
--  发布时间：2016/8/18 21:02:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0681.htm