- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于DrawCell的疑问 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100464)
-- 发布时间：2017/5/11 18:46:00
-- [求助]关于DrawCell的疑问
第一个问题：
此主题相关图片如下：a1.jpg
如图红圈内有个报类的多层表列，我先在下面的每个框中，如果是1的都变成红底白字的式样显示。目前只能挨个对二级表头的列设定。能不能有更简单的方式 直接对整个一级表头内所有的列设置这个规则呢？
第二个问题：
此主题相关图片如下：a2.jpg
如图，比如本例第6行，本来当“广告类别”列中内容是“医疗服务”时，该行的颜色式样应该和第4行的颜色试样一样。
我加入了一个对“暂停期至”列进行时间比较的判断，希望大于当前系统时间的，时间文字用红色显示，背景颜色希望沿用之前的背景颜色（淡黄色）。
但是 由于式样的设置始终会对背景色产生影响，能不能有方法让她再进行时间判断后，直接只改时间的字体颜色 而不改背景之前的颜色？
文件附上，请老师帮忙看看 谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工商数据查询.zip |
[此贴子已经被作者于2017/5/11 18:49:11编辑过]
-- 发布时间：2017/5/11 20:00:00
--
参考代码，细节你自己调整
Select Case e.Row("广告类别")
Case "医疗服务", "医疗器械","医疗美容"
e.Style = "四类行"
Case "收藏品"
e.Style = "敏感行"
Case "保健食品" ,"保健食品"
e.Style = "四类"
End Select
If e.Col.Name = "暂停期至" Then
If e.Row(e.Col.Name) > Date.Today Then
e.Table.DataTable.AddUserStyle(e.Style & "_日期", e.Table.DataTable.Styles(e.style).BackColor, Color.red)
e.Style = e.Style & "_日期"
End If
End If
If e.Col.Name Like "报类_*" Then
If e.Row(e.Col.Name)= 1 Then
e.Style = "四类"
End If
End If
-- 发布时间：2017/5/11 20:23:00
--
感谢老师指导
-- 发布时间：2017/5/11 22:36:00
--
还有这两个方面还得请教下老师
Select Case e.Row("广告类别")
对行可以多选条件来定义式样了
但Select Case 对Col的再次定义另一个式样该如何写呢？实验了半天没成功，还是用IF的老方法 写了一堆
此主题相关图片如下：a3.jpg
还有就是日期，现在大于当日的日期字体红色了，同时背景色没影响到淡黄色和浅绿色的行，但是空白行中由于使用了交替行，位于灰色的行背景色变成白色了
-- 发布时间：2017/5/11 22:57:00
--
1、drawcell事件设置的样式，是不能叠加的；
2、e.style只能设置为一种；
3、每一种可能，都必须生成一种风格名进行指定。
-- 发布时间：2017/5/11 22:58:00
--
上传例子和截图，说明你要做的效果。
-- 发布时间：2017/5/12 1:00:00
--
此主题相关图片如下：a4.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工商数据查询.rar |
已经上传
-- 发布时间：2017/5/12 8:55:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工商数据查询.table |
-- 发布时间：2017/5/12 9:40:00
--
完美 感谢老师，
另外 那个合计表选择要合计的列是怎么开通下拉让选项更多的呢？ 我之前问题出在哪里 总少了一条
-- 发布时间：2017/5/12 10:11:00
--
以下是引用firehell在2017/5/12 9:40:00的发言：
完美 感谢老师，
另外 那个合计表选择要合计的列是怎么开通下拉让选项更多的呢？ 我之前问题出在哪里 总少了一条
必须是【数值】列，才有合计。你之前设置的是字符列。