For Each r As Row In Tables("实验室检查维护").Rows If e.Sender.Name = r("检验项目") Then If IsNumeric(e.Sender.Text) Then If Val(e.Sender.Text) > r("最大值") OrElse Val(e.Sender.Text) < r("最小值") Then e.Sender.BackColor = Color.Red Else e.Sender.BackColor = Color.White End If Else If e.sender.text<>r("参考值") Then e.sender. backcolor=color.red Else e.sender.backcolor=color.white End If End If End If Next