主题：[求助]将当前表中的选定行复制到另一表中，如何实现？

要学会调试代码，既然没有填充数据，而且不报错，那么说明条件可能有问题，我就加一句：
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() '填充数据

我在15楼贴出的代码，是经过测试的。