目的：在成绩表中输入“物理”分数后，自动去“水平表”查找对应这个分数的等级。

我在“物理”表的DataColChanged写了代码：

但没有找到对应分数的等级。

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 Is Nothing Then
            MessageBox.Show("已找到水平级:" & dr("水平级"))
            e.DataRow("物理水平") = dr("水平级")
        Else
            MessageBox.Show("没有找到对应水平级")
           
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩表.table

 汗

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

哦哦，真是！

谢谢甜总