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

Question

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

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

'取引先名
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

'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()

リッチテキストボックス内
１．◎◎会社 ２枚 １２
２．▽◆会社 ５枚 １０
３．◇◆会社 ６枚 １５

テキストボックス５に １２を入力します。

そしてボタンを押して、１．◎◎会社 ２枚 １２　を削除します。
削除後、行間を詰め以下のようにしたいと思います。

リッチテキストボックス内
２．▽◆会社 ５枚 １０
３．◇◆会社 ６枚 １５

宜しくお願いします。

 

Answer 1

データテーブルからデータを削除後に、残ったデータをもう一度リッチテキストボックスに再表示すればよいだけではないでしょうか？　今、リッチテキストボックスに表示されている内容を編集しようとすると、おそらく複雑になります。

ところでなぜリッチテキストボックスに表示されているのでしょうか？　リッチテキストボックスはこのようなデータの一覧を表示するには不向きなコントロールです。

---

★良い回答には回答済みマークを付けよう！ わんくま同盟 MVP - Visual C# http://d.hatena.ne.jp/trapemiya/

Answer 2

回答ありがとうございます。

作成した時はリッチテキストボックスで行っていたので、理由を考慮していなかったのは浅はかですが。

＞データテーブルからデータを削除後に、残ったデータをもう一度リッチテキストボックスに再表示すればよいだけではないでしょうか？
⇒データテーブル内の文字列を削除する事に固執していたので、ご教授頂いた方法でトライします。

参考になる情報やサンプル等ありましたら、ご教授下さい

Answer 3

特に問題がないのであれば、今のうちにリッチテキストボックスを使うのを止め、ListViewやDataGridViewなど、表形式で表示可能であるコントロールを使われることをお勧めします。リッチテキストボックスは表のように整形された文字を表示するのは不向きであり、したがって、その中で個々に表示されるデータを識別することは、不可能とは言いませんがかなり無理があります。

---

★良い回答には回答済みマークを付けよう！ わんくま同盟 MVP - Visual C# http://d.hatena.ne.jp/trapemiya/

Answer 4

私も trapemiya さんの意見に賛成です。
DataTable の内容をわざわざ表形式に文字列加工してリッチテキストボックスに表示する理由が見出せません。
DataGridView 等であればデータをバインドするだけで済むので、コード量も減るしその分バグも減りますので管理しやすいと思います。

---

ひらぽん http://d.hatena.ne.jp/hilapon/