- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 按单元格的内容筛选，新增行如何放在表格第一行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88327)
-- 发布时间：2016/8/1 7:58:00
-- 按单元格的内容筛选，新增行如何放在表格第一行
单击筛选，按鼠标所在单元格的内容筛选
新增，现在是在table最后一行，能增加在第一行嘛
此主题相关图片如下：捕获4.jpg
-- 发布时间：2016/8/1 8:52:00
--
筛选：
If Tables("表A").Current IsNot Nothing Then
Tables("表A").Filter = "[_Identify]=" & Tables("表A").Current("_Identify")
End If
新增
Tables("表A").Position = 0
Tables("表A").InsertNew
-- 发布时间：2016/8/1 9:02:00
--
Dim cl As Col = CurrentTable.Cols(CurrentTable.ColSel) \'选中的列
CurrentTable.Filter= cl.Name & "=\'" & CurrentTable.Current(cl.Name) & "\'"