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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 填充颜色

共有3701人关注过本帖树形打印复制链接主题：[求助] 填充颜色

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

[求助] 填充颜色 发帖心情

Post By：2019/7/28 22:27:00 [显示全部帖子]

你好，最近购买了个这个Foxtable,可是还不怎么会用，按照售后服务的推荐，请这儿的老师帮忙一下，谢谢。

表中的第一列我用扩展例类型设定了色彩。

要求，在窗口中按一下按钮可实现：

1. 当第二列，第三列，第四列中的数量是空白或是 0 时，第一列就显示蓝色

2. 当第三列，第四列中的数量是空白或是 0 时，第一列就显示绿色

3. 当第三列的数量大于0，第四列中的数量是空白或是 0 时，第一列就显示橙色

4. 当第四列的数量大于0时，第一列就显示红色

带上例子，请帮忙看一下。谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:填充颜色.table

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2019/7/28 23:25:00 [显示全部帖子]

你好，不对，第一次可以，可是在表里任意修改后，不会变更了。

可以用按钮来实现吗？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:填充颜色.table

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2019/7/29 10:23:00 [显示全部帖子]

谢谢，老师

那如何转换成按钮代码

Select e.DataCol.Name

Case "第二列","第三列","第四列"

If e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0

e.DataRow("第一列") = Color.Orange.Toargb

ElseIf e.DataRow("第二列") = 0 AndAlso e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0

e.DataRow("第一列") = Color.green.Toargb

ElseIf e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0

e.DataRow("第一列") = Color.Orange.Toargb

ElseIf e.DataRow("第四列") > 0

e.DataRow("第一列") = Color.red.Toargb

End If

End Select

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

主题：[求助] 填充颜色