如何复制筛选结果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何复制筛选结果

共有1897人关注过本帖树形打印复制链接主题：如何复制筛选结果

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

如何复制筛选结果 发帖心情

Post By：2020/7/13 17:15:00 [只看该作者]

蓝老师，以下是筛选唯一行的代码，如何将筛选结果复制到【表B]中？

If User.IsRole("审核") Then '审核代码

Dim idx As String = "-1,"

Dim idx_temp As String = ""

Dim pdr As DataRow = Nothing

Dim count As Integer = 0

Dim cs As String = "第一列,第二列,第三列"

For Each dr As DataRow In DataTables("表A").Select("", cs)

Dim flag As Boolean = False

If pdr IsNot Nothing Then

For Each c As String In cs.split(",")

If pdr(c) <> dr(c) Then

flag = True

Exit For

End If

If flag Then

If count > 1 Then

idx &= idx_temp

End If

count = 1

idx_temp = ""

idx_temp &= dr("_Identify") & ","

Else

count += 1

idx_temp &= dr("_Identify") & ","

End If

pdr = dr

If count > 1 Then

idx &= idx_temp

End If

Tables("表A").filter = "_Identify not in (" & idx.trim(",") & ")"

Else

MessageBox.Show("你无审核权限!")

End If

Return

有点蓝

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

加好友

发短信

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

Post By：2020/7/13 17:22:00 [只看该作者]

参考：

http://www.foxtable.com/webhelp/topics/0680.htm

http://www.foxtable.com/webhelp/topics/1533.htm

yfy13338431925

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

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2020/7/13 22:09:00 [只看该作者]

只复制筛选结果怎么做？

用这段代码，复制的是整个表，而不是筛选值

dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill() '填充数据

有点蓝

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

加好友

发短信

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

Post By：2020/7/13 22:18:00 [只看该作者]

看帮助麻烦仔细看完

Filter

填充条件，请参考表达式的运算符和函数和条件表达式。

f.filter = Tables("表A").filter

[此贴子已经被作者于2020/7/13 22:18:39编辑过]

下一主题 >> << 上一主题

主题：如何复制筛选结果