Question

我添加Dataset1，然后添加一个名为（FACTORY）的数据表，然后添加3个DataColumns（DataColumns1，DataColumns2，DataColumns3），以便在查询包含3列（名称后，在CrystalReport1中使用它们来打印我的DataGridView1），电话，地址）。我的打印代码效果很好，但我想完全删除此Dataset1（XSD），如果可能，请替换此Dataset和DataColumns并仅通过代码创建主题。这是我的打印代码：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim FACTORY As New DataTable
    FACTORY.TableName = "FACTORY"
    Dim col1 As New DataColumn("FirstName", GetType(String))
    Dim col2 As New DataColumn("LastName", GetType(String))
    Dim col3 As New DataColumn("Phone", GetType(String))
    FACTORY.Columns.Add(col1)
    FACTORY.Columns.Add(col2)
    FACTORY.Columns.Add(col3)
    Dim DS As New DataSet
    DS.Tables.Add(FACTORY)
       For Each dr As DataGridViewRow In DataGridView1.Rows
        DS.Tables(0).Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value, dr.Cells(2).Value)
       Next
    Dim rp As New CrystalReport1
    rp.SetDataSource(DS.Tables(0))
        'rp.SetDataSource(DS.Tables("FACTORY"))
    Form1.CrystalReportViewer1.ReportSource = rp
    Form1.ShowDialog()
End Sub

https://e.top4top.net/p_1210a4l3m1.jpg

Answer 1

学习基础知识有时会令人困惑，因此，我将为您快速列举一个例子。您可能还有其他问题，请随时提出。当然，尽管我总是愿意提供帮助，但我想指出jmcilhninney在他的讲话中提到的两件事是正确的：首先，如果您有确切的问题，您更有可能在这里获得帮助。这不是您要求“如何做”的地方。其次，我了解到您是一个初学者（为此，我正在输入所有这些信息），但是一旦您足够了解入门，那么“在网络上搜索创建数据集”确实更加容易和快捷。代码为vb.net ”的数据表数据列。

这就是基本内容：

Dim table As New DataTable
Dim col As New DataColumn("ColumnName", GetType(String))

table.Columns.Add(col)

Dim ds As New DataSet
ds.Tables.Add(table)

此外，here's a good place to read code snippets about this。 VB.NET中的官方文档不容小

玩得开心。

通过代码创建DataColumns和Dataset witout数据库

1 个答案: