以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]窗口控件返回值是否为字符串的判断问题（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40935)

--  作者：cqlwsam --  发布时间：2013/10/7 7:35:00 --  [求助]窗口控件返回值是否为字符串的判断问题（已解决） 各位好，我有个问题。我设计了一个窗口，内有很多控件，控件绑定的字段部分为数字型，部分为字符型。我另设计了一个表（“实验室检查维护”），数字型字段比较最大值及最小值，字符型比较“参考值”，代码如下：前部分正确，后一部分提示“不能将字符串转化为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  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:异常检验结果标记.table [此贴子已经被作者于2013-10-7 8:55:44编辑过]

--  作者：程兴刚 --  发布时间：2013/10/7 8:34:00 --   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

--  作者：cqlwsam --  发布时间：2013/10/7 8:38:00 --   谢谢！高手！