要学会调试代码,既然没有填充数据,而且不报错,那么说明条件可能有问题,我就加一句:
messagebox.show(f.Filter)看看生成的条件到底是什么。
调试成功再删除这一句。
Dim Year As Short = e.Form.Controls("listbox1").SelectedItem
Dim Month As byte = e.Form.Controls("listbox2").SelectedItem
dim f As New Filler
DataTables("汇总表").DataRows.Clear
f.SourceTable = DataTables("明细表") '指定数据来源
f.SourceCols = "日期" '指定数据来源列
f.DataTable = DataTables("汇总表") '指定数据接收表
f.DataCols = "日期" '指定数据接收列
f.ExcludeExistValue=true '排除接收表中已经存在的内容
f.Filter = "[月] = " & month '过滤条件
messagebox.show(f.Filter)
f.Fill() '填充数据
[此贴子已经被作者于2008-11-24 9:46:42编辑过]