小编bon*_*nny的帖子

在VB.Net中手动在Reportviewer中加载.rdlc报告

我在Reportviewer中需要认真的帮助。
我看到了很多链接,尝试了很多代码,但找不到合适的解决方案。请甚至让我理解并清除我的疑问。
完全困惑在代码中选择哪个数据集,什么是datasource.value东西,每次都会给我错误...

我正在展示如何创建报告并尝试使其工作的步骤。这是因为我在创建报告时可能犯了任何错误,并且您可能会发现他们。

现在,下面将描述问题,我有许多.rdlc报告我的项目。我所做的是

注意:包含表单名称的Reportviewer是Reports.vb
RDLC报表是Reports1.rdlc,Report2.rdlc,...

1)创建的报告,例如添加->新项目->报告->报告-> Report1.rdlc
报告名称:Report1.rdlc

2)然后我从这里像这样添加数据集……

在此处输入图片说明

3)DataSet属性打开,它甚至会打开DataSource配置向导。我选择存储过程是因为我想从存储过程中获取数据,然后按Finish。
这里的数据集名称是BonnyDataSet

在此处输入图片说明

4)之后,我从数据集属性中选择数据源...
现在最后一个可用的数据集是什么... ???
以及在ReportViewer中加载时必须考虑的数据集?

在此处输入图片说明

5)现在,我通过添加数据集1的数据列来组织该列,如下所示……

在此处输入图片说明

6)现在,我在Reports.vb表单中添加了Reportviewer,并尝试了很多代码……。
在这里显示其中一些。

Private Sub Reports_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            'Select Case PubRepVar
            'Case "AccMast"
            Dim data As New BonnyDataSet
            Dim rds = New ReportDataSource("BonnyDataSet", data)
            ReportViewer.LocalReport.DataSources.Clear()
            ReportViewer.LocalReport.DataSources.Add(rds)   ‘------error here
            ReportViewer.LocalReport.ReportEmbeddedResource = "YourProjectNamespace.Report1.rdlc"
            ReportViewer.RefreshReport()
            'End Select

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
Run Code Online (Sandbox Code Playgroud)

我收到如下错误:

BC30311:无法将类型'ReportDataSource'的值转换为'ReportDataSource'

我不知道这个错误。

我尝试过的另一个代码是ReportViewer.ProcessingMode = ProcessingMode.Local

        Dim localReport As …
Run Code Online (Sandbox Code Playgroud)

.net vb.net report rdlc winforms

5
推荐指数
1
解决办法
9076
查看次数

在FORMAT功能方面需要帮助

我写了一个代码,想要转换值,如果用户写12,它应该转换为"12.00" Reffered链接

我参考了上面的链接并得到了一个"格式"功能但是当我在我的项目中尝试它时,它将值转换为"0.00"

我在下面写的代码......

    Private Sub txtDisc_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtDisc.KeyDown
    If e.KeyCode = Keys.Return Then
        txtDisc.Text = Format(txtDisc.Text, "0.00")
        txtOpeningBal.Focus()
    End If
End Sub
Run Code Online (Sandbox Code Playgroud)

如果我在编写代码时犯了错误,请帮帮我.

我对这个功能全新,并且看到msdn有帮助但无法理解它...

vb.net

3
推荐指数
1
解决办法
372
查看次数

如何在 Database Expert 中删除 Crystal Reports 数据库连接

我试图从 VS 中 Crystal Reports 的数据库专家中删除数据库连接,但该选项呈灰色...

我建立了很多连接,现在我想删除它们以避免“我的连接”中出现混乱。

甚至参考了以下链接,但没有用。

crystal-reports visual-studio

3
推荐指数
1
解决办法
9670
查看次数

使用For循环选择文本框

对不起,这是一个奇怪而愚蠢的问题,但我需要一个解决方案...

我有30个文本框命名为Txt1,Txt2,Txt3,...,Txt30
我必须填写文本框为Txt1.text = 0按钮单击..

有没有像
On Button Click 这样的方法

Dim i as Integer
For i = 1 to 30  '----- Possible in string but don't know if possible in textboxes
Txt(i).text = 0
Next
Run Code Online (Sandbox Code Playgroud)

或者我必须写出所有30行

Txt1.text = 0
...
Txt30.text = 0
Run Code Online (Sandbox Code Playgroud)

我不知道这个问题怎么问,也许问题不合适.
Thanx提前......

vb.net winforms

2
推荐指数
2
解决办法
266
查看次数

vb.net和MSSQL的日期时间问题

我一直在vb.net中创建一个桌面表单,我在其中使用了datetime-picker工具.我想要一个dd/MM/yyyy的格式,所以我保留了datetimepicker属性的格式.

但是,当我尝试将记录从vb.net插入MSSQL时,很明显会显示SQL异常:

从字符串转换日期和/或时间时转换失败.

因为MSSQL支持一些ISO格式和所有.(MM/dd/yyyy,接受并正确运行,我试过这个).

所以我想把日期转换为vb.net,将它存储在一个声明为'date'或'datetime'的变量中(同时尝试),并将其存储为可接受的格式并将变量插入到Sql Command中.

我用以转换日期的以下命令.

1) Fdt = Date.ParseExact(From_Dt.Text, "MM/dd/yyyy", Globalization.CultureInfo.InvariantCulture)-------- Searched the internet and got this stuff.

2) Fdt = Convert.ToDateTime(From_Dt.Text)

3) #" & format(DateTimePicker1.Value.Date) & "# ----directly inside the sqlcommand in vb.net.
Run Code Online (Sandbox Code Playgroud)

以及我现在没有发布的许多其他功能.

我没有得到一件事,所有上面的工作并给我结果MM/dd/yyyy(通过在运行时添加监视检查)但它仍然给我相同的例外,但如果我将日期格式从datetimepicker属性更改为MM/dd/yyyy然后sqlquery被接受,无异常..

甚至我一个接一个地尝试了字段的数据类型到date/datetime/datetime2(7).

甚至尝试通过一些转换/转换函数直接转换为SQLQuery,但我得到了相同的异常.

但是他们都没有工作,我提到了许多链接,这个问题可能与其他类似,但我没有找到任何解决方案,所以我最后不得不创建这个问题.

触发查询的代码:

Try
        'Dim Fdt As DateTime, Tdt As DateTime
        'Fdt = Date.ParseExact(From_Dt.Text, "yyyy-MM-dd", Globalization.CultureInfo.InvariantCulture)
        'Tdt = Date.ParseExact(To_Dt.Text, "yyyy-MM-dd", Globalization.CultureInfo.InvariantCulture)
        'Fdt = Convert.ToDateTime(From_Dt.Text)
        'Tdt = Convert.ToDateTime(To_Dt.Text)
        If txtCompName.Text <> nothing And cmbCompType.Text <> nothing Then
            If …
Run Code Online (Sandbox Code Playgroud)

vb.net sql-server winforms

1
推荐指数
1
解决办法
570
查看次数