QA@IT

リッチテキストボックス内の行番号と文字列削除

1454 PV

リッチテキストボックスに行番号と取引先名と印刷枚数と取引先コードを表示させています。
別のテキストボックス9に取引先コードを入力し、ボタンを押すとデータテーブルから削除されますが、
リッチテキストボックス内から削除されず苦慮しています。
ボタンを押す事でリッチテキストボックス内からその取引先情報が削除されるにはどうすればよいでしょうか?

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

'取引先名
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(RichTextBox1.Lines.Count = 0, 1, RichTextBox1.Lines.Count)
a = StrConv(xx, VbStrConv.Wide) & "." & TextBox7.Text
a &= " " & TextBox2.Text & "枚" & " " & TextBox6.Text & vbLf

Dim keyValue = TextBox9.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()
MessageBox.Show("入力したコードの取引先が削除されました!", "取引先削除画面")

リッチテキストボックス内

1.◎◎会社 2枚 12
2.▽◆会社 5枚 10
3.◇◆会社 6枚 15

テキストボックス9に 12を入力します。そしてボタンを押して、1.◎◎会社 2枚 12を削除したい。
削除後、行間を詰めたいと思います。

宜しくお願いします。

ウォッチ

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