主题：[求助]关于条件判断问题？

("SubString([产品编号],0,6) = '" & e.NewValue & "'")

出什么错?

If e.DataCol.Name = "本次数量" Then
    If e.DataRow.IsNull("中标工程名称") = False AndAlso e.DataRow.IsNull("产品编号") = False _
        AndAlso e.DataRow.IsNull("本次数量") = False AndAlso e.DataRow.IsNull("第几次采购") = False Then
        Dim sum As Double = e.DataTable.Compute("Sum(本次数量)","中标工程名称 = '" & e.DataRow("中标工程名称") & "' And SubString([产品编号],0,6) = '" & _
              e.DataRow("产品编号") & "' And 第几次采购 <= '" & e.DataRow("第几次采购") & "'")
        e.DataRow("剩余数量") = e.DataRow("成本预算数量") - sum
      
    End If

End If
If e.DataCol.Name = "产品编号" Then
    Dim fdr As DataRow = DataTables("材料费预算表").Find("中标工程名称 = '" & e.DataRow("中标工程名称") & "' and SubString([产品编号],0,6) = '" & e.NewValue & "'")
    If fdr IsNot Nothing Then
        e.DataRow("成本预算数量") = fdr("数量")
        e.DataRow("成本预算单价") = fdr("单价")
    Else
        fdr = DataTables("产品价格库").Find("SubString([产品编号],0,6) = '" & e.NewValue & "'")
        e.DataRow("成本预算数量") = 0
        If fdr IsNot Nothing Then
            e.DataRow("成本预算单价") = fdr("单价")
        End If
    End If
End If

出错提示
此主题相关图片如下：qq截图20140822105048.png

1、编号列，不能有空行的数据；

 

2、试试改成 SubString([产品编号],1,6)

现在不报错了，可是剩余数量的计算结果不对，不是[成本预算数量]－[前几次本次数量之和]，而是剩余数量＝成本预算数量。

 

试试改成 SubString([产品编号],0,6)

 

如果不行，做个例子发上来看看。