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
我要主营业务收入这一行前景色变色,谢谢