主题：关于统计方法疑问

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

老大，报错了

这里有问题：

  If r.IsGroup '如果是分组行
        Dim f As String = "排产日期 = '" & r("排产日期") & "'"
        Dim v As String = " 订单数:" & t.Compute("Count(订单编号)",f)
        r("排产日期") = "当日提示:" & r("排产日期") & v
    End If

提示： 既然此行是分组行，那么r("排产日期")返回的肯定不是日期值，而且表达式的日期应该用#扩起来的。

t.subtotal之后的代码应该改为：

Dim r As Row
Dim r1 As Row
For i As Integer = 1 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    r1 = t.Rows(i-1,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "排产日期 = #" & r1("排产日期") & "#"
        Dim v As String = " 订单数:" & t.Compute("Count(订单编号)",f)
        r("排产日期") = "当日提示:" & r1("排产日期") & v
    End If
Next

请仔细体会一下。

多谢老大，我研究下