| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教如何设置窗口表指定行的背景色？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89076) |
| -- 作者：zhy400137 -- 发布时间：2016/8/15 14:54:00 -- 请教如何设置窗口表指定行的背景色？ Dim Rows1() As String = {"主营业务收入","减:主营业务成本","税金及附加",三项费用合计","加:其他业务收入","减:其他业务支出","营业利润","加:投资收益","补贴收入","营业外收入","减:营业外支出"} For r As Integer = 0 To Rows1.Length -1 Dim dr As DataRow=DataTables("预计损益表1").AddNew() dr("项目分类")=Rows1(r) Select Case Rows1(r) Case "主营业务收入" For i As Integer =1 To DataTables("预计损益表1").DataCols.Count-1 dr(Tables("预计损益表1").Cols(i).name)=DataTables("预算填写").Compute("Sum(费用金额)","期间=\'" & Tables("预计损益表1").Cols(i).name & "\'And 科目一级=\'主营业务收入\'") Next Case "主营业务成本" For i As Integer =1 To DataTables("报表1").DataCols.Count-1 dr(Tables("预计损益表1").Cols(i).name)=DataTables("预算填写").Compute("Sum(费用金额)","期间=\'" & Tables("预计损益表1").Cols(i).name & "\' And 科目一级=\'主营业务成本\'") Next next 我要主营业务收入这一行前景色变色，谢谢
|
| -- 作者：zhy400137 -- 发布时间：2016/8/15 14:58:00 -- 背景色，打错了 |
| -- 作者：zhy400137 -- 发布时间：2016/8/15 15:12:00 -- 顶一下！ |
| -- 作者：zhy400137 -- 发布时间：2016/8/15 17:38:00 -- 顶起来！ |
| -- 作者：大红袍 -- 发布时间：2016/8/15 17:41:00 -- 参考
http://www.foxtable.com/webhelp/scr/0656.htm
|
| -- 作者：zhy400137 -- 发布时间：2016/8/15 17:49:00 -- e.Table.DataTable.AddUserStyle("A", Color.Yellow, Color.White) If e.Col.Name="项目分类" Then If e.Row("项目分类") = "主营业务收入" Then e.Style = "A" End If End If
|
| -- 作者：zhy400137 -- 发布时间：2016/8/15 17:50:00 -- 我在DrawCell事件里，这样写好像不对！ |
| -- 作者：zhy400137 -- 发布时间：2016/8/15 17:52:00 -- 没报错，但没有什么效果，是窗口表，手工编码统计的，请老师指点下！谢谢 |
| -- 作者：大红袍 -- 发布时间：2016/8/15 17:56:00 -- e.Table.DataTable.AddUserStyle("A", Color.Yellow, Color.White)
If e.Row("项目分类") = "主营业务收入" Then
e.Style = "A"
End If |
| -- 作者：zhy400137 -- 发布时间：2016/8/15 17:58:00 -- 呃……，不行 |