If e.DataCol.Name = "分数区间"
If e.DataRow.IsNull("分数区间") Then
e.DataRow("定位院校") = Nothing
Else
Dim ar() As String =
e.DataRow("分数区间").split("-")
If ar.Length =2
e.DataRow("定位院校") = DataTables("院校投档表").GetComboListString("院校名称A","低分 >= " &
val(ar(1)) & " and 高分 <= " & val(ar(0))
).replace("|","")
Else
Dim filter As String = "文理分科 = '" & dr("文理分科") & "' and 录取年度 = '"
& dr("录取年度") & "' and 省份 = '" &
dr("省份") &
"'"
pr = DataTables("院校投档表").Find(filter)
e.DataRow("定位院校") = Nothing
End If
End If
End
If
没搞懂。