主题：请教事件写法

各位版主:这是写在项目属性中的一个事件,下面的第一行和第三行存在错误,真不知咋改了,请赐教:
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

报错:AND 运算符前缺少操作参数

贺总:文件已上传,只有部分数据.问题如下:
   一 对于数据管理软件,真的很是希望数值列的默认值设为0.00,如个别另有需要可重新设置,毕竟在全国来说,使用0.00的格式相对要多的多.(如我这表,设置完真得花点功夫,这是连最基本的国民待遇都没享受到)
   二 本表的思路为:"储蓄客管数据"(下称表1)来自于复制,每月有新数据;"储蓄数据分类"(下称表2)数据来源于表1,在项目属性中的事件是想实现在打开表2时,自动查找表1中是否有新的数据,按[单位代码 ][年度][月份]三列去识别,如果有新数据,就自动填充到表2中,麻烦你就随便对应计算几列吧,其它的给我自己来吧.
   三 在代码书写中如果一行太长,需要二行书写时,在第一行末以哪符号连接?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:咨询.table

自己顶一下..

精减一下:
表1每月有新数据输入
表2数据来源于表1
想实现在打开表2时,自动查找表1中是否有新的数据,按[单位代码][年度][月份]三列去识别,如果有新数据,就自动填充到表2中.
谢谢

我将代码放在子窗口的按钮中: 每按一次,表1的内容在表2中重复增加一次,我的意思是只增加新的数据,已经存在的数据不需要再次增加.

问题还是没有解决.
1 我想可能与那Filter条件有关系.请问老六这个条件应该怎样来写呢?
2 下面是我东拼西凑而写的条件式,也不知哪不对? 烦请你改改,权当学习
dim dr1 as datarow =e.datarow          (这句在按钮中好像是错误的,在代码中正确,不知咋改)
Dim dr As DataRow = DataTables("储蓄客管数据").Find("[年度] = " & (dr1("年度")) & " And [月份] = " & dr1("月份") & " and [单位代码]=" & dr1("单位代码"))
f.Filter=dr1("年度")<>" & dr("年度") & "and dr1("月份")<>" & dr("月份")" & "and dr1("单位代码")" & <>dr("单位代码") 

czy版主:你好
因我对双引号和&还不知怎么用.所以想问的是f.Filter = 后面的怎么写?条件是表1的[单位代码][月份][年度]三列与表2的该三列进行比较.