要在数据表中添加许多行 [英] Want to add many rows in datatable

问题描述

大家好，

我想在数据表中添加许多行.但是使用下面的代码，我只能添加一行，如果我尝试添加任何其他值，那么它将覆盖第一行.

谁能帮我

Hi All,

I want to add many rows in datatable. But with the below code I can add only One row, if I am trying to add any other value then it is overwriting the 1st row.

Can anyone help me

Private Sub Button62_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Dim Table1 As DataTable
        Dim Dt As DataSet
        Dim dr As DataRow
       
        Table1 = New DataTable("Medicines")
        Dim medname As DataColumn = New DataColumn("Medicine Name")
        medname.DataType = System.Type.GetType("System.String")
        medname.MaxLength = 500
        Table1.Columns.Add(medname)
        Dim dosage As DataColumn = New DataColumn("Dosage")
        dosage.DataType = System.Type.GetType("System.String")
        dosage.MaxLength = 500
        Table1.Columns.Add(dosage)
        Dim freq As DataColumn = New DataColumn("Frequency")
        freq.DataType = System.Type.GetType("System.String")
        freq.MaxLength = 500
        Table1.Columns.Add(freq)
       
        dr = Table1.NewRow()
        dr(0) = txtmed.Text
        dr(1) = Me.txtdosage.Text
        dr(2) = txtfreq.Text
        Table1.Rows.Add(dr)
        Dt = New DataSet
        Dt.Tables.Add(Table1)
        DataGrid1.DataSource = Dt.Tables("Medicines")
        txtmed.Text = ""
        txtdosage.Text = ""
        txtfreq.Text = ""
End Sub

预先感谢.

Thanks in advance.

推荐答案

使用循环重复同样的事情.

use a loop to repeat the same thing.

For i as integer =1 to 10
dr = Table1.NewRow()
        dr(0) = txtmed.Text
        dr(1) = Me.txtdosage.Text
        dr(2) = txtfreq.Text
        Table1.Rows.Add(dr)

Next

此代码每次点击事件都会重置ur Datatable一次创建DataTable并在另一个事件中添加值

This code Reset ur Datatable every click event Create DataTable once and add value in another event

Dim Table1 As DataTable

        Table1 = New DataTable("Medicines")
        Dim medname As DataColumn = New DataColumn("Medicine Name")
        medname.DataType = System.Type.GetType("System.String")
        medname.MaxLength = 500
        Table1.Columns.Add(medname)
        Dim dosage As DataColumn = New DataColumn("Dosage")
        dosage.DataType = System.Type.GetType("System.String")
        dosage.MaxLength = 500
        Table1.Columns.Add(dosage)
        Dim freq As DataColumn = New DataColumn("Frequency")
        freq.DataType = System.Type.GetType("System.String")
        freq.MaxLength = 500
        Table1.Columns.Add(freq)

这篇关于要在数据表中添加许多行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！