各位好,我有个问题。我设计了一个窗口,内有很多控件,控件绑定的字段部分为数字型,部分为字符型。我另设计了一个表(“实验室检查维护”),数字型字段比较最大值及最小值,字符型比较“参考值”,代码如下:前部分正确,后一部分提示“不能将字符串转化为double”,看看问题在哪儿?
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
End If
if isstring(e.sender.text) then
if val(e.sender.text)<>r("参考值") then
e.sender. backcolor=color.red
else
e.sender.backcolor=color.white
end if
end if
Next
[此贴子已经被作者于2013-10-7 8:55:44编辑过]