[求助]日期列怎么填充背景色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期列怎么填充背景色

共有3303人关注过本帖树形打印复制链接主题：[求助]日期列怎么填充背景色

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

回复：（有点甜）Dim t As Table = Tables("导出这个表... 发帖心情

Post By：2018/5/23 11:01:00 [只看该作者]

如果是当前表，当前列，下面代码怎么修改？

Dim t As Table = CurrentTable.current(CurrentTable.ColSel)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 11:13:00 [只看该作者]

Dim t As Table = CurrentTable
Dim ids As String = DataTables("背景批注").GetComboListString("行号", "背景 like '%-256%' and 表名 = '" & t.name & "'")
ids = "-1," & ids.replace("|", ",")
t.filter = "_Identify in (" & ids.trim(",") & ")"

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2018/5/23 11:18:00 [只看该作者]

如果日期列根据今天的日期，自动填充的单元格背景色，怎么实现按颜色筛选呢？

要实现当前表，当前列（指定表名这样没用通用性）

此主题相关图片如下：捕获.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:日期列单元格的背景色，按颜色筛选.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 11:21:00 [只看该作者]

你13楼的例子，无法直接根据颜色筛选的，必须根据你drawcell事件的逻辑进行处理，生成对应的filter条件。

之前的例子，看12楼。

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

回复：（有点甜）Dim t As Table = CurrentTableDim i... 发帖心情

Post By：2018/5/23 11:34:00 [只看该作者]

还是没实现对当前表选择的当前列的筛选

下载信息 [文件大小：下载次数： ]
点击浏览该文件:g.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 11:38:00 [只看该作者]

Dim t As Table = CurrentTable
Dim c As Col = t.Cols(t.ColSel)
Dim ids As String = DataTables("背景批注").GetComboListString("行号", "背景 like '%" & c.name & ",-256%' and 表名 = '" & t.name & "'")
ids = "-1," & ids.replace("|", ",")
t.filter = "_Identify in (" & ids.trim(",") & ")"

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2018/5/23 12:10:00 [只看该作者]

当前列，有背景色，且有批注，下面代码怎么修改呢？

Dim t As Table = CurrentTable
Dim c As Col = t.Cols(t.ColSel)
Dim ids As String = DataTables("背景批注").GetComboListString("行号", "背景 like '%" & c.name & ",-%' and "批注 like '%" & c.name & ",%' and 表名 = '" & t.name & "'")
ids = "-1," & ids.replace("|", ",")
t.filter = "_Identify in (" & ids.trim(",") & ")"

dvubb 此主题相关图片如下：捕获.jpg

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 12:27:00 [只看该作者]

Dim ids As String = DataTables("背景批注").GetComboListString("行号", "背景 like '%" & c.name & ",-%' and 批注 like '%" & c.name & ",%' and 表名 = '" & t.name & "'")

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

总数 18 上一页 1 2

主题：[求助]日期列怎么填充背景色