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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 变色单元格

共有11915人关注过本帖树形打印复制链接主题：变色单元格

e-png

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

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/11/20 15:31:00 [显示全部帖子]

不懂你的问题，例子中也没有任何数据，：“逻辑列成对号后”怎么理解？我笨啊。

e-png

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

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/11/20 17:48:00 [显示全部帖子]

If （e.Row.IsNull(e.Col.Name) = False or e.Row.IsNull(e.Col.Name)）And e.Row("第四列") = True
    If Tables("表A").cols(e.Col.Name).Index < Tables("表A").cols("第四列").Index
        e.style = "zs"
    End If
End If

[此贴子已经被作者于2011-11-20 17:58:18编辑过]

e-png

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

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/11/20 18:45:00 [显示全部帖子]

楼上的代码在列位置固定的时候很好用！下面的可以随便拖动“逻辑列”到任何位置。

Dim n1,n2,n3 As Integer
n1 = Tables("表A").cols(e.Col.Name).Index
n2 = Tables("表A").cols("第四列").Index
n3 = Tables("表A").cols("第十一列").Index
If n3 > n2
    If e.Row("第四列") = True And n1 < n2
        e.style = "zs"
    End If
    If e.Row("第十一列") = True
        If n2 < n1 And n1 < n3
            e.style = "sz"
        End If
    End If
Else
    If e.Row("第四列") = True And n1 < n3
        e.style = "sz"
    End If
    If e.Row("第十一列") = True
        If n3 < n1 And n1 < n2
            e.style = "zs"
        End If
    End If
End If

[此贴子已经被作者于2011-11-20 18:47:13编辑过]

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

主题：变色单元格