QA@IT

データテーブルに残っているデータをテキストボックス10に再表示させたい

1139 PV

VS2010PROを使っています。
テキストボックス10に行番号と取引先名と印刷枚数と取引先コードを表示させています。
テキストボックス5に取引先コードを入力し、ボタンを押してデータテーブル(dt1)から削除をしています(出来ます)が、残ったデータをもう一度テキストボックス10に再表示させたく思いますが、苦慮しております(出来ません)。

ボタンを押す事でテキストボックス10内に、残ったデータをもう一度テキストボックス10に
再表示させるにはどうすればよいでしょうか?

テキストボックス10内への表示

'取引先名
Dim a As String
a = TextBox7.Text
'印刷枚数
Dim d As String = TextBox2.Text
TextBox8.Text = d
'取引先コード
Dim x As Integer
x = TextBox6.Text
'テキストボックス表示
Dim xx As Integer
xx = IIf(TextBox10.Lines.Count = 0, 1, TextBox10.Lines.Count)
a = StrConv(xx, VbStrConv.Wide) & "." & TextBox7.Text
a &= " " & TextBox2.Text & "枚" & " " & TextBox6.Text & vbLf

'dt1から削除
Dim keyValue = TextBox5.Text
For i = dt1.Rows.Count - 1 To 0 Step -1
If dt1.Rows(i)(3).ToString() = keyValue Then
dt1.Rows.Remove(dt1.Rows(i))
End If
Next
dt1.AcceptChanges()

テキストボックス内
1.◎▽会社 5枚 12
2.▽◎会社 4枚 10
3.◇>会社 3枚 15

テキストボックス5に 12 を入力します。(1.◎▽会社 5枚 12)がなくなります。

そしてdt1に残ったデータ(2.▽◎会社 4枚 10、3.◇>会社 3枚 15)を
もう一度テキストボックス10に再表示させたく思います。
行間を詰め以下のようにしたいと思います。

テキストボックス10内
2.▽◎会社 4枚 10
3.◇>会社 3枚 15

ご教授下さい。
宜しくお願いします。

  • 過去の質問への回答を放置して新しいユーザーを作成しないでください。2回目ですよね? 変数名やコントロール名もわかりやすいものにしたり、コードを```で括るなど読んでくれる人への配慮、答えのコードではなくヒントをもらう姿勢(具体的になにがわからないか聞く等)を身に付けましょう。 -
ウォッチ

この質問への回答やコメントをメールでお知らせします。