以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于筛选反查问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89610)

--  作者:13555205587
--  发布时间:2016/8/25 13:52:00
--  [求助]关于筛选反查问题

大家好!这里想向大家请教如何实现筛选反查功能。

如图所示 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160825134952.png
图片点击可在新窗口打开查看

 


 

当进行筛选后所得到的数据与主表分离,要点击切换才能返回主表,如何才能显示筛选出来的信息在总表里的位置?

如此功能不能实现,是否可以通过筛选树进行反查,在主表中显示此类数据在主表的位置?

 


--  作者:大红袍
--  发布时间:2016/8/25 15:04:00
--  

drawcell事件

 

Dim idxs As List(Of String) = vars("idxs")
If idxs IsNot Nothing AndAlso idxs.Contains(e.Row("_Identify")) Then
    e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.black)
    e.style = "样式1"
End If

 

筛选代码

 

dim t as table = Tables("表A")
Dim filter = "第一列 = \'1\'"
vars("idxs") = t.DataTable.GetValues("_Identify",filter)
t.Refresh