VB.NETテキストボックスからdatagridviewに値を渡す

以下のコードを使用してテキストボックスの値をデータグリッドビューに渡します。

  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

このコードは、txtDRCRを終了するたびにgridviewに2行追加します。スナップショットも添付しました。親切な助けが必要です。ありがとう。

ImageAttached

0
コードをデバッグする必要があります。あなたが方法がわからない場合は、いくつかの研究をして学ぶ。すべての開発者はどのように知っている必要があり、あなたはここに質問を投稿する前にそれをする必要があります。適切にデバッグすると、2行がどこに追加されているのかがわかります。それを修正する方法がわからない場合でも、少なくとも関連情報を提供することができます。
追加された 著者 jmcilhinney,
コードをデバッグする必要があります。あなたが方法がわからない場合は、いくつかの研究をして学ぶ。すべての開発者はどのように知っている必要があり、あなたはここに質問を投稿する前にそれをする必要があります。適切にデバッグすると、2行がどこに追加されているのかがわかります。それを修正する方法がわからない場合でも、少なくとも関連情報を提供することができます。
追加された 著者 jmcilhinney,
彼らが最初に始める時になじみのある人はいませんが、誰もが学ぶ必要があります。今があなたにとってそうするための最良の時です。
追加された 著者 jmcilhinney,
彼らが最初に始める時になじみのある人はいませんが、誰もが学ぶ必要があります。今があなたにとってそうするための最良の時です。
追加された 著者 jmcilhinney,
私のコメントはあなたの質問に関連しています。あなたはここに投稿する前に自分で問題を解決するためにあなたができることをする必要があります。あなたがデバッグしていなければ、あなたはそれをしていないので、あなたはここに投稿するべきではありません。あなたが始めたばかりの場合、あなたはそれを知らないかもしれません、それが私があなたに言っている理由です。あなたが知っている今、あなたはあなたがするべきであることをすることができます。私が言ったように、すべての開発者はデバッグできるようにする必要があるので、今以上に学習する時間はありません。私たちはここにいないので、あなたは問題を解決しようとする必要はありません。解決しようとしたが解決できない問題を解決するためにここにいます。
追加された 著者 jmcilhinney,
私のコメントはあなたの質問に関連しています。あなたはここに投稿する前に自分で問題を解決するためにあなたができることをする必要があります。あなたがデバッグしていなければ、あなたはそれをしていないので、あなたはここに投稿するべきではありません。あなたが始めたばかりの場合、あなたはそれを知らないかもしれません、それが私があなたに言っている理由です。あなたが知っている今、あなたはあなたがするべきであることをすることができます。私が言ったように、すべての開発者はデバッグできるようにする必要があるので、今以上に学習する時間はありません。私たちはここにいないので、あなたは問題を解決しようとする必要はありません。解決しようとしたが解決できない問題を解決するためにここにいます。
追加された 著者 jmcilhinney,
私はあなたにあなたのコードをデバッグするように言った。あなたはそうしましたか?そうでなければ、なぜですか?もしそうなら、私はそれが2行が作成されていた場所を示すだろうとあなたに言いました、それであなたはなぜ私達にそれを言っていないのですか?コードをデバッグしてください。あなたがそれをしていないなら、あなたは問題を解決しようとしていないし、あなたが問題を解決しようとしていないなら、それはここに投稿するには時期尚早です。試してみたが問題を解決できなかった場合は、ここに投稿してください。
追加された 著者 jmcilhinney,
私はあなたにあなたのコードをデバッグするように言った。あなたはそうしましたか?そうでなければ、なぜですか?もしそうなら、私はそれが2行が作成されていた場所を示すだろうとあなたに言いました、それであなたはなぜ私達にそれを言っていないのですか?コードをデバッグしてください。あなたがそれをしていないなら、あなたは問題を解決しようとしていないし、あなたが問題を解決しようとしていないなら、それはここに投稿するには時期尚早です。試してみたが問題を解決できなかった場合は、ここに投稿してください。
追加された 著者 jmcilhinney,
彼らが最初に始める時になじみのある人はいませんが、誰もが学ぶ必要があります。今があなたにとってそうするための最良の時です。
追加された 著者 jmcilhinney,
デバッグしたと言ったら、実際にデバッグ、つまりブレークポイントを設定し、コードを1行ずつ実行し、各ステップで関連するすべての変数の値やその他の式を調べて、現実と実際の予想とが異なっていたところを調べましたか。そうでない場合は、コードをデバッグしていません。もしそうなら、なぜあなたは正確にどこでそしてどのように現実があなたの期待と異なっていたか説明しなかったのですか?それが一度も起こらなかったらそれからあなたの期待に何か問題がある。
追加された 著者 jmcilhinney,
デバッグしたと言ったら、実際にデバッグ、つまりブレークポイントを設定し、コードを1行ずつ実行し、各ステップで関連するすべての変数の値やその他の式を調べて、現実と実際の予想とが異なっていたところを調べましたか。そうでない場合は、コードをデバッグしていません。もしそうなら、なぜあなたは正確にどこでそしてどのように現実があなたの期待と異なっていたか説明しなかったのですか?それが一度も起こらなかったらそれからあなたの期待に何か問題がある。
追加された 著者 jmcilhinney,
自分で解決策を見つけた。 TXTDRCR_Leaveイベントからコードを削除しました。新しいボタン(btnAdd)を作成し、クリックイベントの下にコードを入れて、それは働いた。提案のためのありがとう、
追加された 著者 Ali.hassan,
自分で解決策を見つけた。 TXTDRCR_Leaveイベントからコードを削除しました。新しいボタン(btnAdd)を作成し、クリックイベントの下にコードを入れて、それは働いた。提案のためのありがとう、
追加された 著者 Ali.hassan,
自分で解決策を見つけた。 TXTDRCR_Leaveイベントからコードを削除しました。新しいボタン(btnAdd)を作成し、クリックイベントの下にコードを入れて、それは働いた。提案のためのありがとう、
追加された 著者 Ali.hassan,
ブレークポイントの使い方や設定には慣れていません。
追加された 著者 Ali.hassan,
ブレークポイントの使い方や設定には慣れていません。
追加された 著者 Ali.hassan,
ブレークポイントの使い方や設定には慣れていません。
追加された 著者 Ali.hassan,
私はコードをデバッグし、それをグーグルし、そしてさまざまな方法で試しましたが、解決策を見つけることができませんでした。
追加された 著者 Ali.hassan,
私はコードをデバッグし、それをグーグルし、そしてさまざまな方法で試しましたが、解決策を見つけることができませんでした。
追加された 著者 Ali.hassan,
すべての情報は質問に書かれています。他に必要な情報を教えてください。
追加された 著者 Ali.hassan,
すべての情報は質問に書かれています。他に必要な情報を教えてください。
追加された 著者 Ali.hassan,
すべての情報は質問に書かれています。他に必要な情報を教えてください。
追加された 著者 Ali.hassan,
私の質問に関係ないものを書く代わりに解決策について話し合うべきです。
追加された 著者 Ali.hassan,
私の質問に関係ないものを書く代わりに解決策について話し合うべきです。
追加された 著者 Ali.hassan,

6 答え

これがあなたが望む一般的な概念だと思います。

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

すべての名前付きオブジェクトのスペルを注意深く確認してください。また、あなたが知っているように、F11を何度も何度も叩くとコードを1行ずつ進めることができるので、実行時に実際に何が起こっているのかを見ることができます。

0
追加された

これがあなたが望む一般的な概念だと思います。

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

すべての名前付きオブジェクトのスペルを注意深く確認してください。また、あなたが知っているように、F11を何度も何度も叩くとコードを1行ずつ進めることができるので、実行時に実際に何が起こっているのかを見ることができます。

0
追加された

これがあなたが望む一般的な概念だと思います。

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

すべての名前付きオブジェクトのスペルを注意深く確認してください。また、あなたが知っているように、F11を何度も何度も叩くとコードを1行ずつ進めることができるので、実行時に実際に何が起こっているのかを見ることができます。

0
追加された

以下のコードを使用してください。

    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()
0
追加された

以下のコードを使用してください。

    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()
0
追加された

以下のコードを使用してください。

    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()
0
追加された