ConnectionStringSettings connSettings = ConfigurationManager.ConnectionStrings["myConnectionString"]; |
if ((connSettings != null) && (connSettings.ConnectionString != null)) |
{ |
this.hospitalDataSetTableAdapter1.Connection.ConnectionString = ConfigurationManager.ConnectionStrings["myConnectionString"].ConnectionString; |
} |
} |
catch (System.Exception ex) |
{ |
// An error has occurred while filling the data set. Please check the exception for more information. |
MessageBox.Show(ex.Message); |
System.Diagnostics.Debug.WriteLine(ex.Message); |
} |
private void _gideonChart_NeedDataSource(object sender, EventArgs e)
{
_gideonChart.Series.Clear();
_gideonChart.PlotArea.XAxis.Clear();
_gideonChart.PlotArea.XAxis.AutoScale =
false;
_gideonChart.PlotArea.XAxis.AutoShrink =
false;
ChartSeries msciUsdSeries = new ChartSeries();
msciUsdSeries.Name =
"MSCI World USD";
msciUsdSeries.Type =
ChartSeriesType.Line;
msciUsdSeries.Appearance.FillStyle.MainColor =
Color.Purple;
msciUsdSeries.Appearance.FillStyle.SecondColor =
Color.Purple;
ChartSeries msciEurSeries = new ChartSeries();
msciEurSeries.Name =
"MSCI World EUR";
msciEurSeries.Type =
ChartSeriesType.Line;
msciEurSeries.Appearance.FillStyle.MainColor =
Color.FromArgb(203, 216, 254);
msciEurSeries.Appearance.FillStyle.SecondColor =
Color.FromArgb(203, 216, 254);
foreach (var entry in _dataSource)
{
ChartSeriesItem msciUsdItem = new ChartSeriesItem();
ChartSeriesItem msciEurItem = new ChartSeriesItem();
msciUsdItem.YValue = (
double)entry.MsciUsdQuote;
msciUsdItem.Label.Visible =
false;
msciUsdSeries.Items.Add(msciUsdItem);
msciEurItem.YValue = (
double)entry.MsciEurQuote;
msciEurItem.Label.Visible =
false;
msciEurSeries.Items.Add(msciEurItem);
ChartAxisItem chartAxisItem = new ChartAxisItem(entry.QuotesDate.Date.ToShortDateString());
_gideonChart.PlotArea.XAxis.AddItem(chartAxisItem);
}
_gideonChart.Series.Add(msciUsdSeries);
_gideonChart.Series.Add(msciEurSeries);
}
If you see some mistakes or know something else that might help, please let me know.
Thanks in advance and kind regards,
Gerald
I am having trouble with a ReportBook. The reports I am using are in a class, and they work fine if I set them up to show in a regular Report Viewer with the below code (the parameters are used in the NeedDataSource in the report):
Dim report As Telerik.Reporting.Report = Nothing
report = New LRSummary()
If Not report Is Nothing Then
If Not Me.txtPolNum.Text Is Nothing Then
report.ReportParameters(0).Value = Trim(Me.txtPolNum.Text)
End If
If Not Me.txtAcctNum.Text Is Nothing Then
report.ReportParameters(1).Value = Trim(Me.txtAcctNum.Text)
End If
If Not Me.txtSaleNum.Text Is Nothing Then
report.ReportParameters(2).Value = Trim(Me.txtSaleNum.Text)
End If
If Not Me.Linid.Text Is Nothing Then
report.ReportParameters(3).Value = Trim(Me.Linid.Text)
End If
If Not Me.txtParentAgent.Text Is Nothing Then
report.ReportParameters(4).Value = Trim(Me.txtParentAgent.Text)
End If
If Not Me.txtSubAgent.Text Is Nothing Then
report.ReportParameters(5).Value = Trim(Me.txtSubAgent.Text)
End If
If Not Me.LimitEffective.Text Is Nothing Then
report.ReportParameters(6).Value = Trim(Me.LimitEffective.Text)
End If
If Not Me.LimitExpiration.Text Is Nothing Then
report.ReportParameters(7).Value = Trim(Me.LimitExpiration.Text)
End If
End If
Me.ReportViewer1.Report = report
But if I use the below code to try to use the same report in a report book, it doesn't work.
Dim reportBook As New ReportBook()
Dim report As Telerik.Reporting.Report = Nothing
report = New LRSummary()
If Not report Is Nothing Then
If Not Me.txtPolNum.Text Is Nothing Then
report.ReportParameters(0).Value = Trim(Me.txtPolNum.Text)
End If
If Not Me.txtAcctNum.Text Is Nothing Then
report.ReportParameters(1).Value = Trim(Me.txtAcctNum.Text)
End If
If Not Me.txtSaleNum.Text Is Nothing Then
report.ReportParameters(2).Value = Trim(Me.txtSaleNum.Text)
End If
If Not Me.Linid.Text Is Nothing Then
report.ReportParameters(3).Value = Trim(Me.Linid.Text)
End If
If Not Me.txtParentAgent.Text Is Nothing Then
report.ReportParameters(4).Value = Trim(Me.txtParentAgent.Text)
End If
If Not Me.txtSubAgent.Text Is Nothing Then
report.ReportParameters(5).Value = Trim(Me.txtSubAgent.Text)
End If
If Not Me.LimitEffective.Text Is Nothing Then
report.ReportParameters(6).Value = Trim(Me.LimitEffective.Text)
End If
If Not Me.LimitExpiration.Text Is Nothing Then
report.ReportParameters(7).Value = Trim(Me.LimitExpiration.Text)
End If
End If
reportBook.Reports.Add(New LRSummary())
Me.ReportViewer2.Report = reportBook
I add more reports, but in the same way. I get either no data or errors on the parameters. If I set some sample parameters in the report class itself, the reports work, but with those sample parameters instead of the ones I set in code. I almost feel like I should rebind the datasource somehow, but I don't seem to be able to access the report's datasource. Plus why would I have to do that on the report book but not the report viewer? Any ideas what I am doing wrong?
Thanks, Amy
Public Sub New(ByVal dtOld As DataTable, ByVal dtNew As DataTable)
InitializeComponent()
RptOldReport1.DataSource = dtOld
RptNewReport1.DataSource = dtNew
End Sub
It shows the data for both the reports but the problem is that it is not showing the column headings in both the reports.