Dim Filter As String
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
vars("起始日期") = .Value
End If
End With
With e.Form.Controls("DateTimePicker2")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
vars("终止日期") = .Value
End If
End With
If Filter > "" Then
Dim b As New GroupTableBuilder("form1_table1",DataTables("表A"))
b.filter = filter
b.Groups.AddDef("编号") '根据产品分组
b.Totals.AddDef("数量") '对数量进行统计
b.Build '生成统计表
MainTable = Tables("form1_table1") '打开生成的统计表
End If
'创建了一个form1窗口,在里面创建了一个table1表
错误提示:
1. 找不到要删除的表 form1_table1
2. form1_table1已经存在.
[此贴子已经被作者于2018/4/3 17:22:31编辑过]
加好友 
发短信
Post By：2018/4/3 17:18:00 [显示全部帖子]
