Создайте базу данных DataColumns и Dataset без кода

Question

Я добавляю Dataset1, затем добавляю DataTable с именем (FACTORY), а затем добавляю 3 DataColumns (DataColumns1, DataColumns2, DataColumns3), чтобы эти столбцы я использовал в CrystalReport1 для печати моего DataGridView1 после запроса, который содержит 3 столбца (Name , телефон, адрес). Мой код для печати работает очень хорошо, но я хочу полностью удалить этот 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)

Кроме того, это хорошее место для чтения фрагментов кода об этом . Официальную документацию нельзя недооценивать в VB.NET.

Веселитесь.