|
各位版主:这是写在项目属性中的一个事件,下面的第一行和第三行存在错误,真不知咋改了,请赐教:
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
|
加好友 
发短信
Post By：2008/9/28 16:08:00 [只看该作者]
