Please start any new threads on our new site at http://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

Our new SQL Server Forums are live! Come on over! We've restricted the ability to create new threads on these forums.

SQL Server Forums
Profile | Active Topics | Members | Search | Forum FAQ
 
Register Now and get your question answered!
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Other Forums
 Other Topics
 RDL2
 Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

OBINNA_EKE
Posting Yak Master

234 Posts

Posted - 12/30/2010 :  06:37:31  Show Profile  Reply with Quote

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)

counter = 0
objNodeList = objXMLDoc.getElementsByTagName("UserColumn")

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)

counter = 0
objNodeList = objXMLDoc.getElementsByTagName("UserColumn")

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>


If it is that easy, everybody will be doing it

GilaMonster
Flowing Fount of Yak Knowledge

South Africa
4507 Posts

Posted - 12/30/2010 :  08:46:38  Show Profile  Visit GilaMonster's Homepage  Reply with Quote
Is there a question here?

--
Gail Shaw
SQL Server MVP
Go to Top of Page

fahim1234
Starting Member

Afghanistan
7 Posts

Posted - 01/04/2011 :  12:50:36  Show Profile  Reply with Quote
WHATS WRONG WITH THE CODE I MIGHT BE ABLE TO HELP ... U LOOK AT MY CODE AND HELP ME TOO

tyutyu
Go to Top of Page

GilaMonster
Flowing Fount of Yak Knowledge

South Africa
4507 Posts

Posted - 01/04/2011 :  14:00:49  Show Profile  Visit GilaMonster's Homepage  Reply with Quote
Don't shout.

--
Gail Shaw
SQL Server MVP
Go to Top of Page
  Previous Topic Topic Next Topic  
 Reply to Topic
 Printer Friendly
Jump To:
SQL Server Forums © 2000-2009 SQLTeam Publishing, LLC Go To Top Of Page
This page was generated in 0.15 seconds. Powered By: Snitz Forums 2000