以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不重复值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94530)

--  作者:刘林
--  发布时间:2016/12/26 7:38:00
--  不重复值
Dim Vals As List(of String())
Dim drf As DataRow
Dim school As String = user.name
Vals = DataTables("学生信息").sqlGetValues("学校名称|班级","学校名称 = \'" & school & "\'","班级")
For i As Integer = 0 To Vals.Count - 1
drf = DataTables("学生统计").SQLFind("单位全称 = \'" & vals(i)(0) & "\' and 班级 = \'" & vals(i)(1) &"\'" )
 If drf Is Nothing
 Dim dr As DataRow = DataTables("学生统计").AddNew()
    dr("单位全称") = Vals(i)(0)
    dr("班级") = Vals(i)(1)
DataTables("学生统计").save()
End If
Next
DataTables("学生统计").loadfilter = "单位全称 = \'" & school & "\'"
DataTables("学生统计").load


老师,是想在后后从学生信息表中提取不重复学校名称,班级刷新到到学生统计表中,其只刷新本校的,上面代码加了红色就没反应了,不加就每次要刷新所有学校的,请问如何改?

--  作者:刘林
--  发布时间:2016/12/26 7:51:00
--  
不好意思发现了,把group 写成name了