主题：请教事件写法

dim dr1 as datarow = datatables("储蓄数据分类").datarows    
Dim dr2 As DataRow = DataTables("储蓄客管数据").Find("[年度] = '" & (dr1("年度")) & "' And [月份] = '" & dr1("月份") & "' and [单位代码]='" & dr1("单位代码") & '")
if dr1("年度")<>dr2("年度")  and dr1("月份")<>dr2("月份")  and dr1("单位代码")<>dr2("单位代码")  then
dim f As New Filler
f.SourceTable = datatables("储蓄客管数据")'       数据来源表.
f.SourceCols = "单位代码,单位名称" '        数据来源列,不同的列用逗号分割.
f.DataTable = datatables("储蓄数据分类") '        数据接收表.
f.DataCols = "单位代码,单位名称" '         数据接收列,不同的列用逗号分割.
f.ExcludeExistValue = true 'false ' 逻辑型,设为True,排除接收表已经存在的内容.
f.ExcludeNullValue = true '   逻辑型,设为True,排除空白值.
f.Fill()
end if