一个查询窗口中有个“导入选定”按钮，代码如下：

Dim tbl As Table = Tables("ERP订单查询_Table1")
Dim db As String=tbl.DataTable.name
For Each dr1 As DataRow In DataTables("授权表").Select("用户名 = \'" & Vars("_UserName") & "\'" )
    If dr1("表名") =Tables(MainTable.Name).Name AndAlso dr1("不可增加")=False Then
        For Each r1 As Row In Tables("ERP订单查询_Table1").GetCheckedRows
            If  DataTables(MainTable.Name).Find("交货期 = #" & r1("确定交期") & "# and 订单号 = \'" & r1("订单号") & "\' and 成品类别 = \'" & r1("料品类别") & "\'and 成品名称 = \'" & r1("料品名称") & "\'") Is Nothing Then
                Dim r2 As Row  = Tables(MainTable.Name).AddNew()
                r2("交货期") = r1("确定交期")
                r2("订单号") = r1("订单号")
                r2("成品类别") = r1("料品类别")
                r2("成品名称") = r1("料品名称")
                Dim Sum As Double
                Sum = tbl.Compute("Sum(打数)", "[订单号] = \'" & r1("订单号") & "\'and [确定交期] = #" & r1("确定交期") & "# And [料品类别] = \'" & r1("料品类别") & "\' and [料品名称] = \'" & r1("料品名称") & "\'")
                r2("打数") = sum
            End If
           
        Next
    End If
Next

执行后得到的数据中的“打数”列有些对有些为0，真的想不明白啊！

说明结果本来就是0

那为什么我在查询窗口见到的是68？结果怎会本来就是0呢？能否说明道理？我原来的代码如果不加上确定交期这个条件是能正确得到结果的只是这个结果是不分日期的。

呵呵，要相信电脑是机械的，这种计算肯定是不会出错的，同样由于他是机械的，“北京” 和“北京　”是完全不同的地方，后面有空格或者回车都不行的。

看看是不是条件不一致吧，搞不定就做个简单例子上传。

我试过了，不是这个原因

我想问题是出现在“确定交期”上，我检查了下ERP数据库里那个“确定交期”发现那个日期虽然显示是"2010-11-18",但实际复制出到文本里显示的是“2010-11-18 10:38:19”，请问这个如何处理呢？

现在问题解决了，我在生成窗口表的SQL语句里修改了一下

{ov_sal_ord_detail}.affirm_date as 确定交期,

现在为

convert(varchar(10), {ov_sal_ord_detail}.affirm_date,120) as 确定交期,

真是烦啊！！