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
老师，是想在后后从学生信息表中提取不重复学校名称，班级刷新到到学生统计表中，其只刷新本校的，上面代码加了红色就没反应了，不加就每次要刷新所有学校的，请问如何改？
加好友 
发短信
Post By：2016/12/26 7:38:00 [只看该作者]
