汗
Select Case e.DataCol.name
Case "物理"
Dim fs As Integer = e.DataRow("物理") '当前行物理分数
Dim dr As DataRow = DataTables("水平表").Find("分数2 >=" & fs & " And 分数1 <=" & fs) '
'参考 :"数量 >= " & v1 & " And 数量 <= " & v2
If dr IsNot Nothing Then
MessageBox.Show("已找到水平级:" & dr("水平级"))
e.DataRow("物理水平") = dr("水平级")
Else
MessageBox.Show("没有找到对应水平级")
End If
End Select