以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在字段标题后加一个筛选标记  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82695)
--  作者：santde
--  发布时间：2016/3/23 8:33:00
--  如何在字段标题后加一个筛选标记
如题，筛选标记是一个小图片。要能添加，删除，要给获取字段标题的起始位置。
--  作者：linswcfr
--  发布时间：2016/3/23 8:36:00
--  
tables("表名").grid.allowfiltering = true
--  作者：santde
--  发布时间：2016/3/23 8:38:00
--  
这是系统的筛选，我的筛选功能是自己做的
--  作者：大红袍
--  发布时间：2016/3/23 9:23:00
--  

添加图标，参考

 

Dim g = Tables("表A").grid
Dim cs = g.GetCellRange(0, 1)
cs.Image = Getimage("d:\\test.Ico")
If cs.style Is Nothing Then
    cs.style = g.Styles.add("第一列")
End If
cs.Style.ImageAlign = 7