以文本方式查看主题 - 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了 |