筛选后用颜色表示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选后用颜色表示

共有12571人关注过本帖树形打印复制链接主题：筛选后用颜色表示

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/6/28 15:19:00 [显示全部帖子]

以下是引用blackzhu在2010-6-28 14:56:00的发言：

我就是忘了怎么做了,那么示例找不到了.

If e.Col.Name = "产品" Then
If e.Row.IsNull(e.Col.Name) = False

         If e.Row(e.Col.Name) = ? (如何等于窗口的文本框的数据) Then
        e.Style = "标出信息" '那么用"优秀"样式绘制单元格
    End If
End If

你不应该吧？：

If e.Row(e.Col.Name) = e.form.Controls("TextBox1").text

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/6/28 16:10:00 [显示全部帖子]

drawcell事件：

If e.Col.Name = "第一列" Then
    If e.Row.IsNull(e.Col.Name) = False
        if Forms("窗口7").opened
            If e.Row(e.Col.Name) = Forms("窗口7").Controls("TextBox1").text Then
                e.Style = "样式1" '那么用"优秀"样式绘制单元格
            end if
        End If
    End If
End If

窗口textbox控件的 textchanged事件：

With CurrentTable
.StopRedraw
.ResumeRedraw
End With

[此贴子已经被作者于2010-6-28 16:11:19编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/7/2 10:57:00 [显示全部帖子]

有意思, 留下了~

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

主题：筛选后用颜色表示