sqlserver报表服务中的一些常见小问题

《sqlserver报表服务中的一些常见小问题》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、SQLServer报表服务中的一些常见小问题>>教育资源库　　SQLServer报表服务(SSRS)对于开发人员和用户来说是一个非常有用的设计和浏览报表的工具。但是，有些特性是在SSRS中没有提供为直接可以使用的。这些特性是开发人员和用户经常需要的。　　在一个报表中显示服务器名称或IP地址　　当报表数据是运行在几个报表服务器上时，用户经常会搞错。你可能有一个测试和开发环境，但是你不知道你的报表数据是来自于哪个服务器。　　很明显，解决这个问题的一个方法是在报表中显示报表服务器名称或它的IP地址。不幸的是，没有直接的函数或方法来获取服务器名称。但是有

2、这个工作环境。　　在报表服务中，有一个全局参数叫做ReportServerUrl，它可以显示报表URL。这个值的开始部分是来自于C:ProgramFilesMicrosoftSQLServerMSSQL.#ReportingServicesReportServer文件夹下的RSReportServer.config文件。在这个文件里，有叫做URLRoot的结点。它是cache.aspx?q=72465960679242mkt=en-USlant.RegularExpressions.R1234下一页>>>>这篇文章来自..，。egexOption

3、s.None)　　PUBLICFunctionExpandPrice(PriceASDouble,_OptionalpSeparatorASString=.)_ASStringDimpPriceAsStringpPrice=FORMAT(Price,##############.00)　　DimtempASNe.Text.StringBuilder()IfNotexpr.IsMatch(pPrice)Then'temp.Append(pPrice)orpartsASString()=pPrice.Split(pSeparator)Dimd

4、ollarsASString=parts(0)DimcentsASString=parts(1)IfCDbl(dollars)>1Thentemp.Append(ExpandIntegerNumber(dollars)Dollars)IfCInt(cents)>0Thentemp.Append(And)EndIfElseIfCDbl(dollars)=0Thentemp.Append(ExpandIntegerNumber(dollars)ZeroDollars)IfCInt(cents)>=0Thentemp.Append(A

5、nd)EndIfElseIfCDbl(dollars)=1Thentemp.Append(ExpandIntegerNumber(dollars)Dollar)EndIf　　IfCDbl(cents)>1Thentemp.Append(ExpandIntegerNumber(cents)Cents)ElseIfCDbl(cents)=0Thentemp.Append(ExpandIntegerNumber(cents)ZeroCents)ElseIfCDbl(cents)=1Thentemp.Append(ExpandIntegerNumb

6、er(cents)Cent)EndIfEndIfRETURNtemp.ToString()EndFunction　　FunctionExpandIntegerNumber(pNumberStrASString)ASStringDimtemp2ASNe.Text.StringBuilder()DimnumberASString=_StrDup(3-Len(pNumberStr)Mod3,0)pNumberStrDimiASInteger,jASInteger=-1DimnumPartASStringFori=Len(number)-2To1Step

7、-3numPart=Mid(number,i,3)IfClng(numPart>0)ThenIfj>-1Thentemp2.Insert(0,suffixes(j),1)EndIfEndIftemp2.Insert(0,GetNumberUnder1000Str(numPart),1)j+=1NextRETURNtemp2.ToString()EndFunction　　FunctionGetNumberUnder1000Str(pNumberASString)ASStringDimtemp1ASNe.Text.StringBuilde

8、r()IfLen(pNumber)=3ThenIfCLng(Left(pNumber,1))>0Thentemp1.Append(