标题：错误提示

1楼

wqc360 发表于：2010/9/1 9:14:00

请问如下提示是什么意思：
图片点击可在新窗口打开查看

此主题相关图片如下：未命名.gif

此主题相关图片如下：未命名1.gif

2楼

狐狸爸爸 发表于：2010/9/1 9:17:00

字符数据和整数数据不能比较，例如 1<> "2" 这样的比较不行，必须 1 <> 2

3楼

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("工序_序号")& "'")

4楼

狐狸爸爸 发表于：2010/9/1 15:14:00

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

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

[此贴子已经被作者于2010-9-1 15:14:20编辑过]

5楼

czy 发表于：2010/9/1 15:23:00

工序_序号列如果是字符型，你就不应该用大于等于做比较。

6楼

wqc360 发表于：2010/9/1 19:13:00

我已把数据类型改成数值型了，我再试试看，谢谢

7楼

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("工序_序号"))

共7 条记录, 每页显示 10 条, 页签: [1]