代码太长了怎样检查正确与否？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

StatusBar.Message1 = "正在全县排名,请稍后..."

Application.DoEvents()

Dim qxs As List(Of DataRow) = DataTables("招生数据").Select("[录取学校] is null ", "总分 DESC")

For i As Integer = 0 To qxs.Count - 1 '遍历所有行

qxs(i)("总分排名") = i + 1 '设置排名

Dim zf As Double = DataTables("招生数据").Compute("Sum(总分)", "[总分排名] = 1000 ") '计算前1000名最低分数线

StatusBar.Message1 = "正在分类排名,请稍后..."

Application.DoEvents()

Dim xms As List(Of String) = DataTables("招生数据").GetUniqueValues("", "就读学校")

Dim szys() As String = {"重庆一中","重庆三中","重庆八中"}

For Each xm As String In xms

For Each szy As String In szys

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[就读学校] = '" & xm & "' and [实验班志愿] = '" & szy & "' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

For Each xm As String In xms

Dim jl As DataRow = DataTables("实验指标分配").Find("[毕业学校] = '" & xm & "'")

If jl IsNot Nothing Then

For Each szy As String In szys

Dim tj As String = "[就读学校] = '" & xm & "'and [实验班志愿] ='" & szy & "' and [录取学校] Is null and [总分] >= '" & zf & "' and [其它排名] > 0 and [其它排名] <= '" & jl(szy & "_指标数") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count - 1

StatusBar.Message1 = xm & ":第一批第一类," & szy & "已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = szy

lqs(i)("录取说明") = "第一批第一类"

End If

For Each dr As DataRow In DataTables("实验指标分配").DataRows

For Each szy As String In szys

dr(szy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & szy & "' and [录取说明] = '第一批第一类'")

dr(szy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & szy & "' and [录取说明] = '第一批第一类'")

dr(szy & "_指标余额") = dr(szy & "_指标数") - dr(szy & "_录取数")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第一批_第一类已录") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第一批第一类'")

dr("第一批_差录") = dr("第一批_计划") - dr("第一批_第一类已录")

StatusBar.Message1 = "正在初使化数据,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").DataRows '录取第一批第二类

dr("其它排名") = Nothing

StatusBar.Message1 = "正在分类排名,请稍后..."

Application.DoEvents()

For Each szy As String In szys

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[实验班志愿] = '" & szy & "' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

For Each szy As String In szys

Dim jl As DataRow = DataTables("录取统计").Find("[录取学校] = '" & szy & "'")

If jl IsNot Nothing Then

Dim tj As String = "[实验班志愿] ='" & szy & "' and [录取学校] Is null and [其它排名] > 0 and [其它排名] <= '" & jl("第一批_差录") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count -1

StatusBar.Message1 = szy & ":第一批第二类,已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = szy

lqs(i)("录取说明") = "第一批第二类"

End If

For Each dr As DataRow In DataTables("实验拉通录取").DataRows

For Each szy As String In szys

dr(szy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & szy & "' and [录取说明] = '第一批第二类'")

dr(szy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[录取学校] = '" & szy & "' and [录取说明] = '第一批第二类'")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第一批_第二类已取") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第一批第二类'")

dr("第一批_差录") = dr("第一批_计划") - dr("第一批_第一类已录") - dr("第一批_第二类已取")

StatusBar.Message1 = "正在初使化数据,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").DataRows '录取第二批第一类

dr("其它排名") = Nothing

StatusBar.Message1 = "正在分类排名,请稍后..."

Application.DoEvents()

Dim pzys() As String = {"重庆一中","重庆三中","重庆八中","巴蜀中学","育才中学","外语学校","西师附中"}

For Each pzy As String In pzys

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[普通班志愿] = '" & pzy & "' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

For Each pzy As String In pzys

Dim jl As DataRow = DataTables("录取统计").Find("[录取学校] = '" & pzy & "'")

If jl IsNot Nothing Then

Dim tj As String = "[普通班志愿] ='" & pzy & "' and [录取学校] Is null and [其它排名] > 0 and [其它排名] <= '" & jl("第二批_第一类计划") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count -1

StatusBar.Message1 = pzy & ":第二批第一类,已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = pzy

lqs(i)("录取说明") = "第二批第一类"

End If

For Each dr As DataRow In DataTables("普通拉通录取").DataRows

For Each pzy As String In pzys

dr(pzy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & pzy & "' and [录取说明] = '第二批第一类'")

dr(pzy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[录取学校] = '" & pzy & "' and [录取说明] = '第二批第一类'")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第二批_第一类已录") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第二批第一类'")

dr("第二批_差录") = dr("第二批_计划") - dr("第二批_第一类已录")

StatusBar.Message1 = "正在初使化数据,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").DataRows '录取第二批第二类

dr("其它排名") = Nothing

StatusBar.Message1 = "正在分类排名,请稍后..."

Application.DoEvents()

For Each xm As String In xms

For Each pzy As String In pzys

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[就读学校] = '" & xm & "' and [普通班志愿] = '" & pzy & "' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

Dim zd As Double = DataTables("招生数据").Compute("Sum(总分)", "[总分排名] = 3800 ") '计算前3800名最低分数线

Dim pt As Double = DataTables("招生数据").Compute("Sum(总分)", "[总分排名] = 6000 ") '计算前6000名最低分数线

For Each xm As String In xms

Dim jl As DataRow = DataTables("普通指标分配").Find("[毕业学校] = '" & xm & "'")

If jl IsNot Nothing Then

For Each pzy As String In pzys

If pzy = "梁平中学" OrElse pzy = "红旗中学" Then

Dim tj As String = "[就读学校] = '" & xm & "'and [普通班志愿] ='" & pzy & "' and [录取学校] Is null and [总分] >= '" & zd & "' and [其它排名] > 0 and [其它排名] <= '" & jl(pzy & "_指标数") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count - 1

StatusBar.Message1 = xm & ":第二批第二类," & pzy & "已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = pzy

lqs(i)("录取说明") = "第二批第二类"

Else

Dim tj As String = "[就读学校] = '" & xm & "'and [普通班志愿] ='" & pzy & "' and [录取学校] Is null and [总分] >= '" & pt & "' and [其它排名] > 0 and [其它排名] <= '" & jl(pzy & "_指标数") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count - 1

StatusBar.Message1 = xm & ":第二批第二类," & pzy & "已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = pzy

lqs(i)("录取说明") = "第二批第二类"

End If

For Each dr As DataRow In DataTables("普通指标分配").DataRows

For Each pzy As String In pzys

dr(pzy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & pzy & "' and [录取说明] = '第二批第二类'")

dr(pzy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & pzy & "' and [录取说明] = '第二批第二类'")

dr(pzy & "_指标余额") = dr(pzy & "_指标数") - dr(pzy & "_录取数")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第二批_第二类已录") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第二批第二类'")

dr("第二批_差录") = dr("统招计划") - dr("提前批录取")- dr("第一批_第一类已录") - dr("第一批_第二类已取") - dr("第二批_第一类计划") - dr("第二批_第二类已录")

StatusBar.Message1 = "正在初使化数据,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").DataRows '录取第二批补充录取

dr("其它排名") = Nothing

Dim dx As Double = DataTables("招生数据").Compute("Sum(总分)", "[总分排名] = 10000 ") '计算最低线10000名最低分数线

StatusBar.Message1 = "正在分类排名,请稍后..."

Application.DoEvents()

For Each pzy As String In pzys

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[普通班志愿] = '" & pzy & "' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

For Each pzy As String In pzys

Dim jl As DataRow = DataTables("录取统计").Find("[录取学校] = '" & pzy & "'")

If jl IsNot Nothing Then

Dim tj As String = "[普通班志愿] ='" & pzy & "' and [录取学校] Is null and [总分] >= 0 and [其它排名] > 0 and [其它排名] <= '" & jl("第二批_差录") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count -1

StatusBar.Message1 = pzy & ":第二批补充录取,已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = pzy

lqs(i)("录取说明") = "第二批补充录取"

End If

For Each dr As DataRow In DataTables("普通补充录取").DataRows

For Each pzy As String In pzys

dr(pzy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & pzy & "' and [录取说明] = '第二批补充录取'")

dr(pzy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[录取学校] = '" & pzy & "' and [录取说明] = '第二批补充录取'")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第二批_补充已录") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第二批补充录取'")

dr("第二批_差录") =dr("统招计划") - dr("提前批录取")- dr("第一批_第一类已录") - dr("第一批_第二类已取") - dr("第二批_第一类计划") - dr("第二批_第二类已录") -dr("第二批_补充已录")

StatusBar.Message1 = "正在初使化数据,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").DataRows '第二批调剂录取

dr("其它排名") = Nothing

StatusBar.Message1 = "正在划分调剂学校,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").Select("[普通班调剂] = '是'")

Dim dr1 As DataRow = DataTables("普通指标分配").Find("[毕业学校] = '" & dr("就读学校") & "'")

If dr1 IsNot Nothing Then

dr("调剂学校") = dr1("录取学校")

End If

For Each pzy As String In pzys

Dim jl As DataRow = DataTables("录取统计").Find("[录取学校] = '" & pzy & "'")

If jl IsNot Nothing AndAlso jl("第二批_差录") > 0 Then

If pzy = "梁平中学" OrElse pzy = "红旗中学" OrElse pzy = "第一中学" Then

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[普通班调剂] = '是' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

Dim tj As String = "[普通班调剂] ='是' and [录取学校] Is null and [总分] >= 0 and [其它排名] > 0 and [其它排名] <= '" & jl("第二批_差录") & "'"

Dim lq1s As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lq1s.count -1

StatusBar.Message1 = pzy & ":第二批调剂录取,已录取" & i+1 & "条记录."

Application.DoEvents()

lq1s(i)("录取学校") = pzy

lq1s(i)("录取说明") = "第二批调剂录取"

Else

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[调剂学校] = '" & pzy & "' and [普通班调剂] = '是' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

Dim tj As String = "[调剂学校] = '" & pzy & "' and [普通班调剂] ='是' and [录取学校] Is null and [总分] >= 0 and [其它排名] > 0 and [其它排名] <= '" & jl("第二批_差录") & "'"

Dim lq1s As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lq1s.count -1

StatusBar.Message1 = pzy & ":第二批调剂录取,已录取" & i+1 & "条记录."

Application.DoEvents()

lq1s(i)("录取学校") = pzy

lq1s(i)("录取说明") = "第二批调剂录取"

End If

For Each dr As DataRow In DataTables("普通调剂录取").DataRows

For Each pzy As String In pzys

dr(pzy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & pzy & "' and [录取说明] = '第二批调剂录取'")

dr(pzy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[录取学校] = '" & pzy & "' and [录取说明] = '第二批调剂录取'")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第二批_调剂已录") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第二批调剂录取'")

dr("第二批_差录") = dr("统招计划") - dr("提前批录取")- dr("第一批_第一类已录") - dr("第一批_第二类已取") - dr("第二批_第一类计划") - dr("第二批_第二类已录") -dr("第二批_补充已录") - dr("第二批_调剂已录")

StatusBar.Message1 = "正在初使化数据,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").DataRows '录取第三批第一类

dr("其它排名") = Nothing

StatusBar.Message1 = "正在分类排名,请稍后..."

Application.DoEvents()

For Each pzy As String In pzys

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[择校生志愿] = '" & pzy & "' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

Dim zzd As Double = DataTables("招生数据").Compute("Sum(总分)", "[总分排名] = 7500 ") '计算前7500名最低分数线

Dim zpt As Double = DataTables("招生数据").Compute("Sum(总分)", "[总分排名] = 8500 ") '计算前8500名最低分数线

For Each pzy As String In pzys

Dim jl As DataRow = DataTables("录取统计").Find("[录取学校] = '" & pzy & "'")

If jl IsNot Nothing Then

If pzy = "梁平中学" OrElse pzy = "红旗中学" Then

Dim tj As String = "[择校生志愿] ='" & pzy & "' and [录取学校] Is null and [总分] >= '" & zzd & "' and [其它排名] > 0 and [其它排名] <= '" & jl("择校计划") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count - 1

StatusBar.Message1 = pzy & ":第三批第一类,已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = pzy

lqs(i)("录取说明") = "第三批第一类"

Else

Dim tj As String = "[择校生志愿] ='" & pzy & "' and [录取学校] Is null and [总分] >= '" & zpt & "' and [其它排名] > 0 and [其它排名] <= '" & jl("择校计划") & "'"

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lqs.count - 1

StatusBar.Message1 = pzy & ":第三批第一类,已录取" & i+1 & "条记录."

Application.DoEvents()

lqs(i)("录取学校") = pzy

lqs(i)("录取说明") = "第三批第一类"

End If

For Each dr As DataRow In DataTables("择校拉通录取").DataRows

For Each pzy As String In pzys

dr(pzy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & pzy & "' and [录取说明] = '第三批第一类'")

dr(pzy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[录取学校] = '" & pzy & "' and [录取说明] = '第三批第一类'")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第三批_第一类已录") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第三批第一类'")

dr("第三批_差录") = dr("择校计划") - dr("第三批_第一类已录")

StatusBar.Message1 = "正在初使化数据,请稍后..."

Application.DoEvents()

For Each dr As DataRow In DataTables("招生数据").DataRows '第三批调剂录取

dr("其它排名") = Nothing

For Each pzy As String In pzys

Dim jl As DataRow = DataTables("录取统计").Find("[录取学校] = '" & pzy & "'")

If jl IsNot Nothing AndAlso jl("第三批_差录") > 0 Then

If pzy = "梁平中学" OrElse pzy = "红旗中学" OrElse pzy = "第一中学" Then

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[普通班调剂] = '是' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

Dim tj As String = "[普通班调剂] ='是' and [录取学校] Is null and [总分] >= 0 and [其它排名] > 0 and [其它排名] <= '" & jl("第三批_差录") & "'"

Dim lq1s As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lq1s.count -1

StatusBar.Message1 = pzy & ":第三批调剂录取,已录取" & i+1 & "条记录."

Application.DoEvents()

lq1s(i)("录取学校") = pzy

lq1s(i)("录取说明") = "第三批调剂录取"

Else

Dim lqs As List(Of DataRow) = DataTables("招生数据").Select("[调剂学校] = '" & pzy & "' and [普通班调剂] = '是' and [录取学校] is null","总分 DESC")

For i As Integer = 0 To lqs.Count - 1 '遍历所有行

If i > 0 AndAlso lqs(i)("总分") = lqs(i-1)("总分") Then '如果总分和上一行相同

lqs(i)("其它排名") = lqs(i-1)("其它排名") '则排名等于上一行

Else

lqs(i)("其它排名") = i + 1 '设置排名

End If

Dim tj As String = "[调剂学校] = '" & pzy & "' and [普通班调剂] ='是' and [录取学校] Is null and [总分] >= 0 and [其它排名] > 0 and [其它排名] <= '" & jl("第三批_差录") & "'"

Dim lq1s As List(Of DataRow) = DataTables("招生数据").Select(tj,"总分 DESC")

For i As Integer = 0 To lq1s.count -1

StatusBar.Message1 = pzy & ":第三批调剂录取,已录取" & i+1 & "条记录."

Application.DoEvents()

lq1s(i)("录取学校") = pzy

lq1s(i)("录取说明") = "第三批调剂录取"

End If

For Each dr As DataRow In DataTables("择校调剂录取").DataRows

For Each pzy As String In pzys

dr(pzy & "_录取数") = DataTables("招生数据").Compute("count(姓名)", "[就读学校] = '" & dr("毕业学校") & "' and [录取学校] = '" & pzy & "' and [录取说明] = '第三批调剂录取'")

dr(pzy & "_录取线") = DataTables("招生数据").Compute("Min(总分)", "[录取学校] = '" & pzy & "' and [录取说明] = '第三批调剂录取'")

For Each dr As DataRow In DataTables("录取统计").DataRows

dr("第三批_调剂已录") = DataTables("招生数据").Compute("count(姓名)", "[录取学校] = '" & dr("录取学校") & "' and [录取说明] = '第三批调剂录取'")

dr("第三批_差录") = dr("择校计划") - dr("第三批_第一类已录") -dr("第三批_调剂已录")

主题：代码太长了怎样检查正确与否？