主题：以日期定条件跨表汇总-已解決

我现在做每周产量的汇总

 

现在能把"手雕汇总","电雕","执版"里的对应款类的总数都汇过去每周产量里

 

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

代码写在"每周产量"表里的表属性-事件-DataRowAdding,如下:

 

'每周产量 款数件数统计
If e.DataCol.Name = "部门" Then
    Dim dt1 = Tables("主页")(0,"开始日")'
    Dim dt2 = Tables("主页")(0,"截止日")'
    Dim nms() As String = {"执版","钉版","手雕汇总","电雕"}
    Dim sty1() As String = {"R","P","E","NL","BL","BG","H"}
   
    If e.NewValue Is Nothing Then
        For Each sty As String In sty1
            e.DataRow(sty) = Nothing
        Next
    Else
        For Each nm As String In nms
            For Each sty As String In sty1
                If    e.NewValue = nm Then
                    e.DataRow(sty) = DataTables(nm).Compute("Sum(检数量)","[款类] = '" & sty & "'")
                End If
            Next
        Next
    End If
End If

 

 

这样能做到,把三个表的款类的总数量,分別列在指定的列上

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

 

 

 

具体都实现了,但想加入以日期范围之內 变量 dt1 dt2为条件 ,即"主页里的 "开始日"列和"截止日"列.

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

 以"手雕汇总","电雕","执版"里的交货期检测筛选,达到做出汇总,碰钉了

 

想不出用什麼手法去实现,求教