请教：Filler的Distinct问题！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：Filler的Distinct问题！

共有3342人关注过本帖树形打印复制链接主题：请教：Filler的Distinct问题！

y2287958

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4742 积分：34508 威望：0 精华：0 注册：2008/8/31 22:44:00

请教：Filler的Distinct问题！ 发帖心情

Post By：2023/5/6 9:10:00 [只看该作者]

请问以下代码中“数据填充器.Distinct ”设置为何无效？（请忽略我为什么要这么用代码，谢谢！）

'1、生成一个临时表

Dim 显示表名 As String = "表A_1"

Dim 临时表生成器 As New DataTableBuilder(显示表名)

临时表生成器.Build()

'2、加载指定表数据

Dim sql语句 As String = "S elect * FROM {表A}"

DataTables(显示表名).Fill(sql语句, True)

'3、复制相同表数据到当前表

Dim 数据填充器 As New Filler

数据填充器.SourceTable = DataTables("表A") '指定数据来源

数据填充器.DataTable = DataTables(显示表名) '指定数据接收表

数据填充器.Distinct = True '注意：这里不起作用，不管设置为True或False，结果都是不排除重复内容。

数据填充器.Fill() '填充数据

MainTable = Tables(显示表名)

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/5/6 9:24:00 [只看该作者]

可能理解有问题。

Distinct 是用来排除数据来源表的重复值，比如表A有2行完全一样的内容，只导入其中一行

如果要排除数据接收表"表A_1"已经有的内容，应该使用ExcludeExistValue

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4742 积分：34508 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2023/5/6 9:39:00 [只看该作者]

明白了，谢谢！

主题：请教：Filler的Distinct问题！