Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
有了下面一行:
f.ExcludeExistValue = True '排除已经存在的内容
就不会出现重复添加的问题。
问题还是没有解决.
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("单位代码")
If Maintable.Name = "储蓄数据分类" Then
dim f As New Filler
f.SourceTable = datatables("储蓄客管数据") '数据来源表.
f.SourceCols = "单位代码,单位名称,年度,月份" '数据来源列,不同的列用逗号分割.
f.DataTable = datatables("储蓄数据分类") ' 数据接收表.
f.DataCols = "单位代码,单位名称,年度,月份" ' 数据接收列,不同的列用逗号分割.
f.ExcludeExistValue = true '排除接收表已经存在的内容.
f.ExcludeNullValue = true '排除空白值.
f.Fill()
End if
但现在有一个问题,问题出在单位代码这列的数据,如果将这列数据改成字符(不是数字)就正常,否则出错,我还不知道原因所在,请老六查一下是不是程序有问题。
问题还是没有解决.
1 我想可能与那Filter条件有关系.请问老六这个条件应该怎样来写呢?
条件可以这样,看下面代码中的filter部分。
If Maintable.Name = "储蓄数据分类" Then
dim f As New Filler
f.SourceTable = datatables("储蓄客管数据") '数据来源表.
f.SourceCols = "单位代码,单位名称,年度,月份" '数据来源列,不同的列用逗号分割.
f.DataTable = datatables("储蓄数据分类") ' 数据接收表.
f.DataCols = "单位代码,单位名称,年度,月份" ' 数据接收列,不同的列用逗号分割.
f.ExcludeExistValue = true '排除接收表已经存在的内容.
f.ExcludeNullValue = true '排除空白值.
f.Filter = "[年度] = '指定年度'"
f.Fill()
End if
f.Filter = "[年度] = '"& e.Form.Controls("ComboBox1").value & "'"
谢谢CZY版主!这一点很实用
czy版主:你好
因我对双引号和&还不知怎么用.所以想问的是f.Filter = 后面的怎么写?条件是表1的[单位代码][月份][年度]三列与表2的该三列进行比较.