主题：请教事件写法

别的不说明，单单第一行，就有错：

Dim dr1 as datarow = datatables("储蓄数据分类").datarows  

至少应该：

Dim dr1 as datarow = datatables("储蓄数据分类").datarows(x)

x表示行号。

除代码，最好传文件，说明这段代码的设计目的以及遇到的问题。

想帮你，但是估计大家和我一样，看不懂你的意思

dim f As New Filler
f.SourceTable = DataTables("储蓄客管数据") '指定数据来源
f.SourceCols = "单位代码,年度,月份" '指定数据来源列
f.DataTable = DataTables("储蓄数据分类") '指定数据接收表
f.DataCols = "单位代码,年度,月份" '指定数据接收列
f.ExcludeExistValue = True '排除已经存在的内容
f.Fill() '填充数据

不过这样做效率太低，最好在储蓄数据分类设计一个窗口，窗口加一个刷新按钮，按钮的Click事件代码设置为上面的代码，需要刷新的时候，单击这个按钮。
否则数据量大的时候，效率会让你头疼。

有了下面一行：

f.ExcludeExistValue = True '排除已经存在的内容

就不会出现重复添加的问题。