主题：跨表统计问题

If e.DataCol.Name = "部品番號" Then
    Dim Filter As String = "[部品番號] = '" & e.NewValue & "'"
    Filter = filter & " and 送货日期 = #" & e.DataRow("送货日期") & "#"
    e.DataRow("今回発送數") = DataTables("建伍交货计划").Compute("Sum(纳入数量)",Filter)
End If