CODEWITHSUNDEEP
vb.netdatatable
Michael Raouf
Michael Raouf

Reputation: 29

Adding Data to DataTable

This code is recording the inserted IDs in arraylist and when press on button it should create loop for this array and get the data of each ID from the array and put it in Datatable and add the new data while looping to the datatable and finaly show it in datagridview . The problem in the result when I insert one record it works fine but when I insert more than one the datagridview shows just the last one , what the mistake that I Done ?!!

In Mainform 

Public Inserted_record_hold_dt As New DataTable
Public Inserted_record_dt As New DataTable
Public Sub Addcolumnstodatagrid()
    Inserted_record_dt.Columns.Add("ID")
    Inserted_record_dt.Columns(0).AutoIncrement = True

    Inserted_record_dt.Columns.Add("drawingname")
    Inserted_record_dt.Columns.Add("serial")

End Sub

and call this in main_Load

Addcolumnstodatagrid()

And this in the show button when click to loop on the array list that already have the latest ID's that has been added 

Private Sub show_btn_Click(sender As System.Object, e As System.EventArgs) Handles show_btn.Click
    Dim InsertedID As Integer
    Inserted_record_dt.Clear()
    Dim R As DataRow = Inserted_record_dt.NewRow

    'Loop For each ID in the array "Inserted_List_Array"
    For Each InsertedID In mainadd.Inserted_List_Array
        'MsgBox(InsertedID.ToString)
        Dim cmd As New SqlCommand("select drawingname , serial from main where drawingid = '" & InsertedID & "'", DBConnection)
        DBConnection.Open()
        Inserted_record_hold_dt.Load(cmd.ExecuteReader)
        Try

            R("drawingname") = Inserted_record_hold_dt.Rows(0).Item(0)
            R("serial") = Inserted_record_hold_dt.Rows(0).Item(1)
            Inserted_record_dt.Rows.Add(R)

        Catch
        End Try
        'MsgBox("added")
        DBConnection.Close()
        cmd = Nothing
        Inserted_record_hold_dt.Clear()
    Next
    sendmail.Show()
    sendmail.Mail_DGView.DataSource = Inserted_record_dt
End Sub

Please tell me what is the problem in my code .

Upvotes: 0

Views: 409

Answers (1)

Steve
Steve

Reputation: 216243

Your mistake is in declaring the R variable just one time outside the loop. In this way you continuously replace the values on the same instance of a DataRow and insert always the same instance.

Just move the declaration inside the loop

For Each InsertedID In mainadd.Inserted_List_Array
    ......
    Try
        Dim R As DataRow = Inserted_record_dt.NewRow
        R("drawingname") = Inserted_record_hold_dt.Rows(0).Item(0)
        R("serial") = Inserted_record_hold_dt.Rows(0).Item(1)
        Inserted_record_dt.Rows.Add(R)

    Catch
    ....
Next

Another important thing to do is to remove the empty Try/Catch because you are just killing the exception (no message, no log) and thus you will never know if there are errors in this import. At the end you will ship a product that could give incorrect results to your end user.

Upvotes: 1

Related Questions