VB.NET将值从文本框传递到datagridview

Question

I want to pass values of textboxes to a datagridview using below code.

  Private Sub txtDrCr_Leave(sender As Object, e As System.EventArgs) Handles txtDrCr.Leave

    Dim nR As Integer
    nR = TxtList.Rows.Add()
    TxtList.Item("stsno", nR).Value = nR + 1
    TxtList.Item("stAcctCode", nR).Value = txtAccountCode.Text
    TxtList.Item("stAcctName", nR).Value = txtAccountName.Text
    TxtList.Item("stBranch", nR).Value = txtBranchName.Text
    TxtList.Item("stDescription", nR).Value = txtDescription.Text
    TxtList.Item("stAmount", nR).Value = txtAmount.Text
    TxtList.Item("stDrCR", nR).Value = txtDrCr.Text
    cleartextboxes()
End Sub

This code add two lines in the gridview whenever I leave the txtDRCR. I have attached the snapshot as well. Please need kind help. Thanks.

Answer 1

Please use below code.

    Dim nR As Integer =0;
    Dim Row As Integer =0;
    TxtList.Rows.Add()
    Row = TxtList.Rows.Count - 2;

    TxtList("stsno", Row ).Value = nR + 1
    TxtList("stAcctCode", Row ).Value = txtAccountCode.Text
    TxtList("stAcctName", Row ).Value = txtAccountName.Text
    TxtList("stBranch", Row ).Value = txtBranchName.Text
    TxtList("stDescription", Row ).Value = txtDescription.Text
    TxtList("stAmount", Row ).Value = txtAmount.Text
    TxtList("stDrCR", Row ).Value = txtDrCr.Text
    TxtList.Refresh()

Answer 2

I believe this is the general concept you want.

Private Sub btnAddList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddList.Click
       Dim i As Integer
       With dgvIssuedBooks
           ' Write to cell (0,0)
           .Rows(i).Cells("CallNumber").Value = txtCallNo2.Text
           .Rows(i).Cells("Title").Value = txtTitle2.Text
           .Rows(i).Cells("AccessionNumber").Value = txtAccess2.Text
           .Rows(i).Cells("Borrower").Value = dgvSearch.Rows(i).Cells("FullName").Value
           .Rows(i).Cells("ID").Value = txtShow.Text

       End With
       txtAccess2.Text = ""
       txtCallNo2.Text = ""
       txtTitle2.Text = ""
   End Sub

Check the spelling all all named objects carefully. Also, just so you know, hitting F11 over and over and over will let you step through the code line by line, so you can see what is actually going on when it runs.