这很简单,看我的程序:
DRPtmp.Sections(5).Controls("labdate").Caption = "从" & PsMxkBegin & "到" & PsMxkEnd
DRPtmp.Sections(5).Controls("labtotal").Caption = "总额:" & Trim(Str(Total)) '以上两行都是加标题
DRPtmp.WindowState = 2
If DE.CNtmp.State <> adStateClosed Then
DE.CNtmp.Close
End If
DE.CNtmp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & SystemData & "temp.mdb"
DE.CNtmp.Open
DE.Commands("zs").CommandType = adCmdText
DE.Commands("zs").CommandText = "select * from TmpQs where 年份=#" & 年份 & "#" ‘注意这里哟、注意这里哟。
If DE.rsZS.State <> adStateClosed Then
DE.rsZS.Close
End If
DE.zs ’这点也很重要
DRPtmp.Show
其中,DRPTMP为报表设计器名称,给分吧!:)
DRPtmp.Sections(5).Controls("labdate").Caption = "从" & PsMxkBegin & "到" & PsMxkEnd
DRPtmp.Sections(5).Controls("labtotal").Caption = "总额:" & Trim(Str(Total)) '以上两行都是加标题
DRPtmp.WindowState = 2
If DE.CNtmp.State <> adStateClosed Then
DE.CNtmp.Close
End If
DE.CNtmp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & SystemData & "temp.mdb"
DE.CNtmp.Open
DE.Commands("zs").CommandType = adCmdText
DE.Commands("zs").CommandText = "select * from TmpQs where 年份=#" & 年份 & "#" ‘注意这里哟、注意这里哟。
If DE.rsZS.State <> adStateClosed Then
DE.rsZS.Close
End If
DE.zs ’这点也很重要
DRPtmp.Show
其中,DRPTMP为报表设计器名称,给分吧!:)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货