Ookete:
Sorry, I just got into work. Below is more of the codes.
thanks
Linpro
____________________________________________________________
Private Sub ExecReport(ByVal reportPath As String)
Dim forRendering As Boolean = True
Dim historyID As String = Nothing
Dim values As rs1.ParameterValue()
Dim credentials As rs1.DataSourceCredentials()
Dim rsUserID As String
Dim rsPassword As String
Dim rsDomain As String
Dim configurationAppSettings As System.Configuration.AppSettingsReader = New System.Configuration.AppSettingsReader
Try
report = reportPath
rsUserID = CType(configurationAppSettings.GetValue("RSUserID", GetType(System.String)), String)
rsPassword = CType(configurationAppSettings.GetValue("rsPassword", GetType(System.String)), String)
'rsDomain = CType(configurationAppSettings.GetValue("rsDomain", GetType(System.String)), String)
'rsUserID = "rsuser"
'rsPassword = "Password123"
reportingService.Credentials = New System.Net.NetworkCredential(rsUserID, rsPassword, rsDomain)
parameters = reportingService.GetReportParameters(report, historyID, forRendering, values, credentials)
If Not (parameters Is Nothing) Then
Dim strParameterTable As String
strParameterTable = "<TABLE class=""Normal"""
strParameterTable += " width=""99%"" border=""0"""
strParameterTable += " cellpadding=""4"" cellspacing=""0"""
strParameterTable += " align=""center"">"
strParameterTable += "<TR bgColor=#ffffff><TD width=""50%"">"
dynamicFieldsMarker.Controls.Add(New LiteralControl(strParameterTable))
Dim rp As rs1.ReportParameter
Dim i As Integer = 0
For Each rp In parameters
'If rp.Name <> "lob" Then
i = i + 1
'strParameterTable = "<DIV style=""PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FLOAT: left; MARGIN-RIGHT: 2px; POSITION: static;"">"
strParameterTable += "<TABLE class=""Normal"""
strParameterTable += " border=""0"""
strParameterTable += " cellpadding=""0"" cellspacing=""0"""
strParameterTable += ">"
strParameterTable += "<THEAD><TR bgColor=#ffffff valign=""Bottom"">"
dynamicFieldsMarker.Controls.Add(New LiteralControl(strParameterTable))
Dim strParmPrompt As String
Dim strParmName As String
Dim ParmHasParent As Boolean
strParmPrompt = rp.Prompt
strParmName = rp.Name
If rp.Dependencies Is Nothing Then
ParmHasParent = False
Else
ParmHasParent = True
End If
dynamicFieldsMarker.Controls.Add(New LiteralControl("<TD nowrap bgColor=#ffffff class=""Normal"" valign=""Bottom""><font style=""FONT-WEIGHT: normal; FONT-SIZE: 10pt; COLOR: #003366; FONT-FAMILY: Arial"">" & strParmPrompt))
dynamicFieldsMarker.Controls.Add(New LiteralControl("</font></TD></TR></THEAD><TBODY><TR bgColor=#ffffff valign=""Top"">"))
dynamicFieldsMarker.Controls.Add(New LiteralControl("<TD align=""left""><BR>"))
If rp.Name = "Investment_id" Then
Dim tb As New System.Web.UI.WebControls.TextBox
tb.ID = rp.Name
dynamicFieldsMarker.Controls.Add(tb)
Else
Dim lb As New System.Web.UI.WebControls.ListBox
Dim strText As String
lb.SelectionMode = ListSelectionMode.Single
lb.Rows = 1
lb.ID = rp.Name
'If Not ParmHasParent Or Not Page.IsPostBack Then
If UCase(rp.Name) = "LOB" Then
Dim aData As DataSet
aData = GetValidLOBsbyUsername(GetSingleUserNameByID(Int32.Parse(context.User.Identity.Name)))
lb.DataSource = aData
lb.DataValueField = aData.Tables(0).Columns(0).ToString
lb.DataTextField = aData.Tables(0).Columns(1).ToString
'strText = aData.Tables(0).Columns(1).ToString & " (" & aData.Tables(0).Columns(0).ToString & ")"
'lb.DataTextField = strText
lb.DataBind()
ElseIf UCase(rp.Name) = "BU" Then
Dim aData As DataSet
aData = GetValidBUsbyUsername(GetSingleUserNameByID(Int32.Parse(context.User.Identity.Name)))
lb.DataSource = aData
lb.DataValueField = aData.Tables(0).Columns(0).ToString
lb.DataTextField = aData.Tables(0).Columns(1).ToString
'strText = aData.Tables(0).Columns(1).ToString & " (" & aData.Tables(0).Columns(0).ToString & ")"
'lb.DataTextField = strText
lb.DataBind()
Else
Dim validValue As rs1.ValidValue
For Each validValue In rp.ValidValues
Dim item As New System.Web.UI.WebControls.ListItem
item.Text = validValue.Label
item.Value = validValue.Value
lb.Items.Add(item)
Next validValue
'If Page.IsPostBack = False Then
'lb.SelectedIndex = -1
'End If
End If
'End If
lb.AutoPostBack = True
lb.EnableViewState = True
AddHandler lb.SelectedIndexChanged, AddressOf parameter_Click
dynamicFieldsMarker.Controls.Add(lb)
End If
dynamicFieldsMarker.Controls.Add(New LiteralControl("</TD></TR>"))
If i Mod 2 = 0 Then
dynamicFieldsMarker.Controls.Add(New LiteralControl("</TBODY></TABLE></TD></tr></table></TR><TR><TR bgColor=#ffffff><TD>"))
Else
dynamicFieldsMarker.Controls.Add(New LiteralControl("</TBODY></TABLE></TD></tr></table></td><td width=""50%"">"))
End If
Next rp
dynamicFieldsMarker.Controls.Add(New LiteralControl("</TD></TR></TBODY></TABLE>"))
dynamicFieldsMarker.Controls.Add(New LiteralControl(strParameterTable))
End If
Catch e As SoapException
Console.WriteLine(e.Detail.InnerXml.ToString())
End Try
End Sub