Public Shared Function ManageVisibility(ByVal fieldName As String, ByVal xmlParameterValues As String) as Boolean
Dim objXMLDoc As System.Xml.XmlDocument = New System.Xml.XmlDocument() Dim counter Dim objNodeList As System.Xml.XmlNodeList Dim node As System.Xml.XmlNode objXMLDoc.LoadXml(xmlParameterValues)
If objNodeList.count > 0 then For each node in objNodeList
if Trim$(objNodeList.item(counter).Attributes.getNamedItem("UserColumnName").value) = Trim$(fieldName) return False end IF counter = counter + 1
Next return True End If
End Function
Public Shared Function GetFriendlyHeader(ByVal fieldName As String, ByVal xmlParameterValues As String) as String
Dim objXMLDoc As System.Xml.XmlDocument = New System.Xml.XmlDocument() Dim counter Dim objNodeList As System.Xml.XmlNodeList Dim node As System.Xml.XmlNode objXMLDoc.LoadXml(xmlParameterValues)
If objNodeList.count > 0 then For each node in objNodeList if Trim$(objNodeList.item(counter).Attributes.getNamedItem("UserColumnName").value) = Trim$(fieldName) return objNodeList.item(counter).Attributes.getNamedItem("UserColumnFriendlyName").value end IF counter = counter + 1
Next return "Not Found" End If
End Function ************** <ReportParameter Name="UserColumnFilterBlock"> <DataType>String</DataType> <Nullable>true</Nullable> <Prompt>UserColumnFilterBlock</Prompt> </ReportParameter>
RDL2
Posted - 12/30/2010 : 06:37:31
