Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共16 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:填充器不能排除已有值

1楼
xl 发表于:2009/12/17 10:40:00
如题
[此贴子已经被作者于2009-12-17 17:02:09编辑过]
2楼
yangming 发表于:2009/12/17 11:20:00
dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.DataTable = DataTables("表B") '指定数据接收表
f.ExcludeExistValue= True
f.Append=False
f.Fill() '填充数据
3楼
xl 发表于:2009/12/17 11:23:00
杨大姐,请将2楼文件测试一下,结果不能排除已有值。是BUG吧?
[此贴子已经被作者于2009-12-17 11:24:06编辑过]
4楼
yangming 发表于:2009/12/17 11:25:00
以下是引用xl在2009-12-17 11:23:00的发言:
杨大姐,请将2楼文件测试一下,结果不能排除已有值。是BUG吧?
[此贴子已经被作者于2009-12-17 11:24:06编辑过]

我测试了,可以啊,只是如果表B的行数大于表A的行数,那就会只填充到表A的行数,而大于的行还是原数据,你可以在填充前先清空表B,然后再执行此代码

[此贴子已经被作者于2009-12-17 11:27:31编辑过]
5楼
xl 发表于:2009/12/17 11:34:00
奇怪,我这里根本无法排除填入表中的值。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:填充问题.table

[此贴子已经被作者于2009-12-17 15:22:39编辑过]
6楼
程兴刚 发表于:2009/12/17 12:17:00

我这里是这样的,不知与您的思路有什么不同,自己对比一下:(应用于项目属性的MainTableChanged事件)


If MainTable.Name = "人材机汇总" Then
    DataTables("人材机汇总").DataRows.Clear()
    if DataTables("人材机").DataRows.Count > 1
        dim f As New Filler
        f.SourceTable = DataTables("人材机") '指定数据来源
        f.SourceCols = "定额类别,费用类别,子目编号,子目名称,子目单位" '指定数据来源列
        f.ExcludeExistValue = true
        f.ExcludeNullValue = true
        f.Distinct = true
        f.DataTable = DataTables("人材机汇总") '指定数据接收表
        f.DataCols = "定额类别,费用类别,子目编号,子目名称,子目单位" '指定数据接收列
        f.Filter = "[配比子目] is null or [配比子目] <> '+' + [子目编号]"
        f.Fill()
    end if
end if

[此贴子已经被作者于2009-12-17 12:16:56编辑过]
7楼
xl 发表于:2009/12/17 14:17:00
大家研究一下,看问题出在哪里?(文件见5楼):
dim zkf As New Filler
zkf.SourceTable = DataTables("表一")
zkf.SourceCols = "班级"
zkf.DataTable = DataTables("流水表")
zkf.DataCols = "正课_姓名"
zkf.ExcludeExistValue = true
zkf.ExcludeNullValue = true
zkf.Distinct = true
zkf.Append=false
zkf.Fill()
[此贴子已经被作者于2009-12-17 15:24:09编辑过]
8楼
yangming 发表于:2009/12/17 16:25:00
dim zkf As New Filler
zkf.SourceTable = DataTables("表一")
zkf.SourceCols = "班级"
zkf.DataTable = DataTables("流水表")
zkf.DataCols = "正课_姓名"
zkf.Distinct = true
zkf.Append=false
zkf.Fill()

其实Distinct就是重复内容,已有内容和空白值三者都能排除的,有了它,就不再要那两条了

[此贴子已经被作者于2009-12-17 16:27:25编辑过]
9楼
xl 发表于:2009/12/17 17:08:00
杨姐细看一下,将代码执行结果:在流水表填充列中有"重复记录".
[此贴子已经被作者于2009-12-17 17:10:09编辑过]
10楼
xl 发表于:2009/12/18 9:01:00
看贺老师了?
共16 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04688 s, 3 queries.