Dears,
I have looked every where but i cannot find answer to this. Before you think i have already the RefreshReport and there is no change in this. Find below my code.
Try
strConnection = New System.Data.OleDb.OleDbConnection(connectionstring )
strConnection.Open()
search_query = "SELECT account_tracks.request_num,account_tracks.client_n ame,account_tracks.client_cis,account_tracks.accou nt_no,account_activity.action_status,account_activ ity.comment,account_activity.ref_date,system_login .username FROM account_tracks INNER JOIN account_activity ON account_tracks.track_id = account_activity.track_id,system_login WHERE account_activity.ID=system_login.ID AND account_activity.[ref_date] BETWEEN #" & fromdatetime.ToString(format) & "# AND #" & todatetime.ToString(format) & "# AND account_tracks.client_cis = '" & searched_CIS.Text & "'"
If (Seg_CB.Text <> "") Then
search_query = search_query & " AND account_tracks.[segment] = '" & Seg_CB.Text & "'"
End If
If (Reg_CB.Text <> "") Then
search_query = search_query & " AND account_tracks.[region] = '" & Reg_CB.Text & "'"
End If
If (City_CB.Text <> "") Then
search_query = search_query & " AND account_tracks.[city] = '" & City_CB.Text & "'"
End If
If (CurStat_CB.Text <> "") Then
search_query = search_query & " AND account_tracks.[current_status] = '" & CurStat_CB.Text & "'"
End If
search_query = search_query & " Order by account_activity.ref_date DESC"
objAdapter = New OleDbDataAdapter(search_query, strConnection)
objAdapter.Fill(ObjDataSet, "account_activity")
Dim search_string As String
search_string = searched_CIS.Text
If (Seg_CB.Text <> "") Then
search_string = search_string & ", Segment: '" & Seg_CB.Text & "'"
End If
If (Reg_CB.Text <> "") Then
search_string = search_string & ", Region: '" & Reg_CB.Text & "'"
End If
If (City_CB.Text <> "") Then
search_string = search_string & ", City: '" & City_CB.Text & "'"
End If
If (CurStat_CB.Text <> "") Then
search_string = search_string & ", Status: '" & CurStat_CB.Text & "'"
End If
Dim objRpt As New CrystalReport1
objRpt.SetDataSource(ObjDataSet.Tables("account_ac tivity"))
GeneratedReport.CrystalReportViewer1.ReportSource = objRpt
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterValues As ParameterValues
crParameterFieldDefinitions = objRpt.DataDefinition.ParameterFields
For Each crParameterFieldDefinition In crParameterFieldDefinitions
crParameterDiscreteValue = New ParameterDiscreteValue()
crParameterValues = crParameterFieldDefinition.CurrentValues
Select Case crParameterFieldDefinition.Name
Case "from_date"
crParameterDiscreteValue.Value = FromDate_DP3.Text
Case "to_date"
crParameterDiscreteValue.Value = ToDate_DP4.Text
Case "other_criteria"
crParameterDiscreteValue.Value = search_string
End Select
Try
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crPa rameterValues)
Catch ex As Exception
End Try
Next
Catch ex As Exception
MessageBox.Show("Failure Occured!")
Exit Sub
End Try
Everytime i run this, it keeps on asking me "Enter Parameter Values", please please let me know what can i do to fix this.
Regards,
Maddy