SQL Server报表服务中的一些常见小问题_中国IT运维网www.cnitom.com

SQL Server报表服务(SSRS)对于开发人员和用户来说是一个非常有用的设计和浏览报表的工具。但是，有些特性是在SSRS中没有提供为直接可以使用的。这些特性是开发人员和用户经常需要的。

　　在一个报表中显示服务器名称或IP地址

　　当报表数据是运行在几个报表服务器上时，用户经常会搞错。你可能有一个测试和开发环境，但是你不知道你的报表数据是来自于哪个服务器。

　　很明显，解决这个问题的一个方法是在报表中显示报表服务器名称或它的IP地址。不幸的是，没有直接的函数或方法来获取服务器名称。但是有这个工作环境。

　　在报表服务中，有一个全局参数叫做ReportServerUrl，它可以显示报表URL。这个值的开始部分是来自于C:Program FilesMicrosoft SQL ServerMSSQL.#Reporting ServicesReportServer 文件夹下的RSReportServer.config 文件。在这个文件里，有叫做URLRoot 的结点。它是http://{IPAddress}/reportserver或http://{Server Name}/reportserver。你需要找到方法来提取这个IP地址或服务器名称，你可以使用下面的表达式：

Mid(Globals!ReportServerUrl,8,InStr(9,Globals!ReportServerUrl,"/") - 8)

　　这个表达式所做的，是提取从//位置后的字母到/位置后的字母间的名称，这是服务器的服务器名称或IP地址。

　　将数字类型转化为文本

　　这是在SSRS论坛上经常看到的问题，因为许多用户需要将数字类型的数据显示为文本。尽管在水晶报表中有一个函数，但是在SSRS中没有函数。不过，你可以在SSRS中自己写个函数。

　　让我们用下面的查询来举个例子：

SELECT Sales.SalesPerson.SalesPersonID AS SalesPerson,
SUM(Sales.SalesOrderDetail.OrderQty * Sales.SalesOrderDetail.UnitPrice) AS Amount
FROM Sales.SalesOrderDetail
INNER JOIN Sales.SalesOrderHeader ON Sales.SalesOrderDetail.SalesOrderID = Sales.SalesOrderHeader.SalesOrderID
INNER JOIN Sales.SalesPerson ON Sales.SalesOrderHeader.SalesPersonID = Sales.SalesPerson.SalesPersonID
GROUP BY Sales.SalesPerson.SalesPersonID

　　为了使用这个例子，让我们假设我们需要显示销售人员的id和数量，数量要以文本形式显示。

　　按照下面的步骤来创建一个报表。

　　1. 创建一个SSRS项目。

　　2. 添加新报表到这个项目中。

　　3. 添加一个数据源，它的数据库指向adventureworks。

　　4. 用上面的查询创建一个数据集。

　　5. 从工具箱拖拉一个表来进行显示，并拖拉字段到这个表上。

　　下一步是创建一个函数来转换数字类型为文本。

　到报表菜单选项中选择报表属性。选择对话框中的代码标签页并复制和黏贴下面的代码：

' Source
' http://cc.msnscache.com/cache.aspx?q=72465960679242&mkt=en-US&lang=en-US&w=577f5001&FORM=CVRE8
SHARED suffixes AS String() = _
{"Thousand ", "Million ", "Billion ", "Trillion ", _
"Quadrillion ", "Quintillion ", "Sextillion "}

SHARED units AS String() = _
{"","One ", "Two ", "Three ", "Four ", "Five ", _
"Six ", "Seven ", "Eight ", "Nine "}

SHARED tens AS String() = _
{"Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", _
"Seventy ", "Eighty ", "Ninety "}

SHARED digits AS String() = _
{"Ten ","Eleven ", "Twelve ", "Thirteen ", "Fourteen ", _
"Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen"}

SHARED expr AS NEW _
System.Text.RegularExpressions.Regex("^-?d+(.d{2})?$", _
System.Text.RegularExpressions.RegexOptions.None)

PUBLIC Function ExpandPrice(Price AS Double, _
Optional pSeparator AS String = ".") _
AS String
Dim pPrice As String
pPrice = FORMAT(Price,"##############.00")

Dim temp AS New System.Text.StringBuilder()
If Not expr.IsMatch(pPrice) Then
' temp.Append(pPrice) or whatever you want to do here
Else
Dim parts AS String() = pPrice.Split(pSeparator)
Dim dollars AS String = parts(0)
Dim cents AS String = parts(1)
If CDbl(dollars) > 1 Then
temp.Append(ExpandIntegerNumber(dollars) & "Dollars ")
If CInt(cents) > 0 Then
temp.Append("And ")
End If
ElseIf CDbl(dollars) = 0 Then
temp.Append(ExpandIntegerNumber(dollars) & "Zero Dollars ")
If CInt(cents) >= 0 Then
temp.Append("And ")
End If
ElseIf CDbl(dollars) = 1 Then
temp.Append(ExpandIntegerNumber(dollars) & "Dollar " )
End If

If CDbl(cents) > 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 New System.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 > 0) Then
If j > -1 Then
temp2.Insert(0,suffixes(j),1)
End If
End If
temp2.Insert(0,GetNumberUnder1000Str(numPart),1)
j += 1
Next
RETURN temp2.ToString()
End Function

Function GetNumberUnder1000Str(pNumber AS String) AS String
Dim temp1 AS New System.Text.StringBuilder()
If Len(pNumber) = 3 Then
If CLng(Left(pNumber, 1)) > 0 Then
temp1.Append(GetNumberUnder100Str(Left(pNumber, 1)) & "Hundred ")
End If
End If
temp1.Append(GetNumberUnder100Str(Right("0" & pNumber, 2)))
RETURN temp1.ToString()
End Function

Function GetNumberUnder100Str(pNumber AS String) AS String
If pNumber > 19 Then
RETURN tens(Left(pNumber, 1) - 2) & units(Right(pNumber, 1))
ElseIF pNumber >= 10 and pNumber <= 19 Then
RETURN digits(Right(pNumber, 1))
Else
RETURN units(Right(pNumber, 1))
End If
End Function

　　上面的代码是从网站上代码片段那里得到的。

　　接下来，你需要在你的表中调用这个函数。你需要在你需要转换你的数字为文本的字段输入下面的函数调用。

=Code.ExpandPrice(Fields!Amount.Value,".")

　　最后，你将看到下面的屏幕。

　　以选择的颜色显示网格