SQL Server报表服务中的一些常见小问题--.doc

　　SQL Server报表服务中的一些常见小问题 　　SQL Server报表服务(SSRS)对于开发人员和用户来说是一个非常有用的设计和浏览报表的工具。但是，有些特性是在SSRS中没有提供为直接可以使用的。 这些特性是开发人员和用户经常需要的。 　　在一个报表中显示服务器名称或IP地址 　　当报表数据是运行在几个报表服务器上时，用户经常会搞错。你可能有一个测试和开发环境，但是你不知道你的报表数据是来自于哪个服务器。 　　很明显，解决这个问题的一个方法是在报表中显示报表服务器名称或它的IP地址。不幸的是，没有直接的函数或方法来获取服务器名称。但是有这个工作环境。 　　在报表服务中，有一个全局参数叫做ReportServerUrl，它可以显示报表URL。这个值的开始部分是来自于C:Program FilesMicrosoft SQL ServerMSSQL.#Reporting ServicesReportServer 文件夹下的RSReportServer.config 文件。在这个文件里，有叫做URLRoot 的结点。它是cache.aspx?q=72465960679242mkt=en-USlant.RegularExpressions.R 1234下一页 这篇文章来自..，。egexOptions.None) 　　PUBLIC Function ExpandPrice(Price AS Double, _ Optional pSeparator AS String = .) _ AS String Dim pPrice As String pPrice = FORMAT(Price,##############.00) 　　Dim temp AS Ne.Text.StringBuilder() If Not expr.IsMatch(pPrice) Then #39; temp.Append(pPrice) or parts AS String() = pPrice.Split(pSeparator) Dim dollars AS String = parts(0) Dim cents AS String = parts(1) If CDbl(dollars) gt; 1 Then temp.Append(ExpandIntegerNumber(dollars) Dollars ) If CInt(cents) gt; 0 Then temp.Append(And ) End If ElseIf CDbl(dollars) = 0 Then temp.Append(ExpandIntegerNumber(dollars) Zero Dollars ) If CInt(cents) gt;= 0 Then temp.Append(And ) End If ElseIf CDbl(dollars) = 1 Then temp.Append(ExpandIntegerNumber(dollars) Dollar ) End If 　　If CDbl(cents) gt; 1 Then temp.Append(ExpandIntegerNumber(cents) Cents) ElseIf CDbl(cents) = 0 Then temp.Append(ExpandIntegerNumber(cents) Zero Cents ) ElseIf CDbl(cents) = 1 Then temp.Append(ExpandIntegerNumber(cents) Cent ) End If End If RETURN temp.ToString() End Function 　　Function ExpandIntegerNumber(pNumberStr AS String) AS String Dim temp2 AS Ne.Text.StringBuilder() Dim number AS String = _ StrDup(3 - Len(pNumberStr) Mod 3, 0) pNumberStr Dim i AS Integer, j AS Integer = -1 Dim numPart AS String For i = Len(number) - 2 To 1 Step -3 numPart = Mid(number, i, 3) If Clng(numPart gt; 0) Then If j gt; -1 Then temp2.Insert(0,suffixes(j),1) End If End If temp2.Insert(0,GetNumberUnder1000Str(n