- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于筛选后复制问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160006)
-- 发布时间：2021/1/17 13:37:00
-- 关于筛选后复制问题
请教下，表格某一列筛选了某个关键字后，然后复制符合条件的行，到EXCEL中粘贴，却把不符合筛选要求的行也一起粘过去了，请问怎么解决。
-- 发布时间：2021/1/17 20:29:00
--
怎么做的筛选，又是怎么做的复制？
-- 发布时间：2021/1/17 21:20:00
--
此主题相关图片如下：捕获.png
-- 发布时间：2021/1/17 21:21:00
--
按上图 点击列名 做的筛选，直接复制筛选后的行，却总把一些无用的行业复制出来了
-- 发布时间：2021/1/17 21:43:00
--
这种无法控制，请使用帮助的方法做筛选：
此主题相关图片如下：1.png
-- 发布时间：2021/1/19 21:57:00
--
请问用一下代码 在列名上打开的筛选功能，筛选后，为什么复制时，会把没用的都复制上了
Tables("表a").Grid.AllowFiltering = True
-- 发布时间：2021/1/19 22:17:00
--
这种筛选只是把内容折叠起来，和execl一样，其实行还在的。foxtable默认不支持这种筛选的应用
-- 发布时间：2021/8/13 8:50:00
--
感觉系统带的筛选 不好用，
用这个代码开启的筛选（折叠）比较好用，只是复制内容存在问题
Tables("表a").Grid.AllowFiltering = True
这种EXCEL类似的筛选的高点的版本 复制已经正常了，即筛选出多少就复制多少了
foxtable的这种筛选 是否也用代码可以实现，比如用代码把 选中的行，且显示出来的数据加到剪贴板
-- 发布时间：2021/8/13 8:57:00
--
自己遍历行复制：http://www.foxtable.com/webhelp/topics/1597.htm
判断行是隐藏的就不要复制
if Tables("表a").Grid.Rows(1).visible
-- 发布时间：2021/8/13 12:06:00
--
蓝老师，我给以下代码加了条件，筛选后，选择，用以下代码的按钮复制，但复制粘贴后结果也不正常，帮看看吧
Dim t As Table = CurrentTable
Dim ss As new StringBuilder
For i As Integer = t.TopPosition To t.BottomPosition
Dim s As String =""
If t.Grid.Rows(i).visible = TRUE Then
For j As Integer = t.LeftCol To t.rightcol
s = s & t.Rows(i)(j) & vbtab
Next
End If
ss.AppendLine(s.Trimend(vbtab))
Next
ClipBoard.SetText
此主题相关图片如下：捕获122222.png
[此贴子已经被作者于2021/8/13 12:22:46编辑过]