主题：列的行比较

Select Case e.DataCol.Name
    Case "上限", "下限", "数据"
        If e.DataRow("数据") >= e.DataRow("下限") AndAlso e.DataRow("数据") <= e.DataRow("上限") Then
            msgbox("及格")
        Else
            msgbox("不及格")
        End If
End Select