汗
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 IfEnd Select