请教如何设置窗口表指定行的背景色？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 科目一级='主营业务收入'")

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 科目一级='主营业务成本'")

我要主营业务收入这一行前景色变色，谢谢

主题：请教如何设置窗口表指定行的背景色？