主题：跨表统计

Select Case e.DataCol.name
Case "发生年月"
    Dim dr As DataRow = e.DataRow
    If dr("发生年月").length =8 Then
        Dim d1 As Date = new Date(dr("发生年月").substring(0,4), dr("发生年月").substring(5,2), 1)
        Dim d2 As Date = d1.AddMonths(1)
        Dim filter As String = "[物料名称] = '" & dr("物料名称") & "'and 发生日期 >=#" & d1 & "# and 发生日期 < #" & d2 & "# "
        dr("销售数量")=DataTables("销售明细实际人员附表").Compute("sum(销售数量)",filter)
    End If
End Select

上述代码有什么问题吗？实现不了求和功能

加入msgbox，弹出各个值，看是否进入执行了里面的代码。