以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  错误提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8044)
--  作者：wqc360
--  发布时间：2010/9/1 9:14:00
--  错误提示
请问如下提示是什么意思：
图片点击可在新窗口打开查看此主题相关图片如下：未命名.gif
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：未命名1.gif
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2010/9/1 9:17:00
--  
字符数据和整数数据不能比较，例如 1<> "2" 这样的比较不行，必须 1 <> 2
--  作者：wqc360
--  发布时间：2010/9/1 11:27:00
--  

是不是下面代码错误：

Dim Sum As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = \'" & dr("图号") & "\' And [派工单号] = \'" & dr("派工单号") & "\' And [状态]= \'执行\'  And [工序_序号] <= " & dr("工序_序号"))
Dim Sum1 As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = \'" & dr("图号") & "\' And [派工单号] = \'" & dr("派工单号") & "\' And [状态]= \'执行\' And [工序_序号] >= " & dr("工序_序号"))

改成如下行吗？（工序_序号列是字符型列）
Dim Sum As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = \'" & dr("图号") & "\' And [派工单号] = \'" & dr("派工单号") & "\' And [状态]= \'执行\'  And [工序_序号] <= \'" & dr("工序_序号")& "\'")
 Dim Sum1 As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = \'" & dr("图号") & "\' And [派工单号] = \'" & dr("派工单号") & "\' And [状态]= \'执行\' And [工序_序号] >= \'" & dr("工序_序号")& "\'")
--  作者：狐狸爸爸
--  发布时间：2010/9/1 15:14:00
--  

在比较的时候，不是什么都要加单引号的，字符用单引号，日期用#，数值什么也不要。

你需要抽出时间，重读一下帮助，巩固一下基础。

[此贴子已经被作者于2010-9-1 15:14:20编辑过]
--  作者：czy
--  发布时间：2010/9/1 15:23:00
--  
工序_序号列如果是字符型，你就不应该用大于等于做比较。
--  作者：wqc360
--  发布时间：2010/9/1 19:13:00
--  
我已把数据类型改成数值型了，我再试试看，谢谢
--  作者：czy
--  发布时间：2010/9/1 19:29:00
--  

大概是这样吧。

 

Dim Filter As String = "[图号] = \'" & dr("图号") & "\' And [派工单号] = \'" & dr("派工单号") & "\' And [状态]= \'执行\'"
Dim Sum As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)",Filter & " And [工序_序号] <= " & dr("工序_序号"))
Dim Sum1 As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)",Filter & " And [工序_序号] >= " & dr("工序_序号"))