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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 临时表的样式问题

共有111人关注过本帖树形打印复制链接主题：临时表的样式问题

有点蓝

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

等级：超级版主帖子：111970 积分：570016 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2025/1/14 15:44:00 [显示全部帖子]

看表格都是什么列名和标题

for each dc as datacol in datatables("窗口2_Table2").datacols

msgbox(dc.name & ",," & dc.caption)

有点蓝

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

等级：超级版主帖子：111970 积分：570016 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2025/1/14 16:08:00 [显示全部帖子]

If e.Col.Name Like "计划数_*" Then

If e.Row(e.Col.Name) = 0 Then

e.Style = "w" '白色

ElseIf e.Row(e.Col.Name) > 1 Then

e.Style = "f" '如蓝色

ElseIf e.Row(e.Col.Name) >= e.Row(e.Col.Name.replace("计划数","完成数")) Then

e.Style = "g" '如绿色

ElseIf e.Row(e.Col.Name) < e.Row(e.Col.Name.replace("计划数","完成数")) Then

e.Style = "y" '如黄色

End If

主题：临时表的样式问题