Dim Filter As String
Dim qsrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim jzrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")
Dim cpxh As WinForm.DropDownBox = e.Form.Controls("cmbproduct")
Dim ddh As WinForm.ComboBox = e.Form.Controls("OrderNum")
If qsrq.Value IsNot Nothing Then
If Filter > "" Then
filter = filter & " and Date>= #" & qsrq.Value & "#"
End If
filter = "Date >= #" & qsrq.value & "#"
End If
If jzrq.Value IsNot Nothing Then
If filter > "" Then
filter = filter & " and Date <= #" & jzrq.Value & "#"
Else
filter = "Date <= #" & jzrq.value & "#"
End If
End If
If cpxh.Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "Type like '%" & cpxh.value & "%'"
End If
If ddh.Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "OrderNum like '%" & ddh.value & "%'"
End If
If Filter > "" Then
Tables("PVC Order Query_table1").Filter = Filter
End If
Dim tb As Table = Tables("PVC Order Query_table1")
Dim g As Subtotalgroup
tb.SubtotalGroups.Clear()
'定义产品分组
g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "Type" '分组列为客户
g.TotalOn = "Quantity,SquareMeter,Cornice" '统计数量和金额列
g.Caption = "{0} 小计" '设置标题
tb.SubtotalGroups.Add(g) '加到分组集合中
'定义分组
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "OrderNum"
g.TotalOn = "Quantity,SquareMeter,Cornice"
g.Caption = "{0} 小计"
tb.SubtotalGroups.Add(g)
'定义总计分组
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示.
g.TotalOn = "Quantity,SquareMeter,Cornice"
g.Caption = "总计"
tb.SubtotalGroups.Add(g)
tb.Subtotal() '生成汇总模式