Dim cmbt1 As String = cmb1.SelectedText
Dim cmbt2 As String = cmb2.SelectedText
Dim cmbt3 As String = cmb3.SelectedText
Dim cmbt4 As String = cmb4.SelectedText
Dim cmbt5 As String = cmb5.SelectedText
Dim dict As new Dictionary(of String,String)
dict.Add("类别",new String(1) {cmbt2,"lb"})
dict.Add("民族",new String(1) {cmbt3,"mz"})
dict.Add("性别",new String(1) {cmbt4,"xb"})
Dim sg As New GroupTableBuilder("T分dj","统考dj")
Select Case cmbt1 '范围
Case "区"
sg.Groups.AddDef("qx") '根据区县分组
Case "校"
sg.Groups.AddDef("qx") '
sg.Groups.AddDef("xx") '根据学校分组
Case "师"
sg.Groups.AddDef("qx") '
sg.Groups.AddDef("xx") '
sg.Groups.AddDef("jx") '根据教师分组
End Select
Dim tmp() As String = cmbt5.Split("-")
For i As Integer =0 To tmp.Length - 1 Then
Dim v = dict(tmp(i))
If v(0) = "是" Then sg.Groups.AddDef(v(1))
Next
Tables("T分综合分析_table1").DataSource = DataTables("T分dj")
加好友 
发短信
Post By：2016/3/5 11:59:00 [显示全部帖子]
