Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)

Dim f As New Filler
f.SourceTable = DataTables("应收明细")
f.SourceCols = "单位名称"
f.DataTable = DataTables("本年应收汇总表")
f.DataCols = "客户名称"   ‘想只在“客户名称”列填充本年的数据，我怎么在MaintableChanged 里改呢？
f.Append=False
f.Fill()

Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)

Dim f As New Filler
f.SourceTable = DataTables("应收明细")
f.SourceCols = "单位名称"
f.DataTable = DataTables("本年应收汇总表")
f.DataCols = "客户名称"  

f.Filter = "日期 >= #" & dt1 & "# and 日期 <= #" & dt2 & "#"

f.Append=False
f.Fill()

甜老师，这个我是通过更改电脑时间，改变年份的。我第一次改好年份后，“客户名称”列完全按我希望的填充了。但当我再改年份的时候，原先填充的 客户名称还在，如果在 来源列  删除了这个客户，接收列 这个客户还在。是什么原因呢？

 你的代码只是填充，并没有移除的功能。

 或者你可以先把全部移除，然后重新填充。

这样的话还是用狐表自带统计的方便，但实在想要自已做一个的。甜老师，收集一年的“客户名称”只有填充这个方试吗？还有没有其它途径我可以达到？

DataTables("应收明细").DataRows.Clear

Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)

Dim f As New Filler
f.SourceTable = DataTables("应收明细")
f.SourceCols = "单位名称"
f.DataTable = DataTables("本年应收汇总表")
f.DataCols = "客户名称"  
f.Filter = "日期 >= #" & dt1 & "# and 日期 <= #" & dt2 & "#"
f.Fill()

傻眼了~  老师拔根毫毛般的容易。  我的问题解决了 ：）