主题：日期列 直接引用 出现 到类型“Long”的转换无效

dr("敏福_发货数量") = fh.Compute("Sum(发货数量)","发货日期 = '" & rq & "' And 发货单位 = '敏福'")

非常感谢 原来是引号的问题

如果条件  日期   或者 发货单位 在记录表中不存在   此结果为空 如何返回 0

dim d As Double = fh.Compute("Sum(发货数量)","发货日期 = #" & rq & "# And 发货单位 = '敏福'")

If d = nothing Then

    dr("敏福_发货数量") = 0

Else

    dr("敏福_发货数量") = d

End If

此主题相关图片如下：实例.jpg

写成循环的方式

 

Dim cs1() As String = {"发货数量", "其它列名"}
Dim cs2() As String = {"敏福", "其它列名"}

For i As Integer = 0 To cs1.Length - 1
    Dim d As Double = fh.Compute("Sum(" & cs1(i) & ")","发货日期 = #" & rq & "# And 发货单位 = '" & cs2(i) & "'")
   
    If d = Nothing Then
        dr(cs1(i) & "_" & cs2(i)) = 0
    Else
        dr(cs1(i) & "_" & cs2(i)) = 0
    End If
Next

你也可以这样写

 

Dim cs1() As String = {"发货数量", "其它列名"}

For Each c As String In cs1
    If e.DataRow.Isnull(c) ten
        e.DataRow(c) = 0
    End If
Next