テキストボックスへの書き込み線？ここ

Question

愚かここで疑問が、私のコードです：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim dt As DataTable 
    dt = CType(dgrGrid.DataSource, DataTable).Copy 
    Dim drs() As DataRow = dt.Select("CustomerID = 222") 
    For Each row As DataRow In drs 
     For Each item As Object In row.ItemArray 
      Debug.WriteLine("{0}", item) 
     Next 
    Next 
End Sub 

私は、デバッグウィンドウにすべての私の値を見ることができます。

この値をテキストボックスに吐き出す必要がある場合、私はそれを行う方法がわかりません。

目的は、値を取得するためにitemArrayを引き続き使用することです。

Answer 1

あなたはこのようなものを使用することができます。

Dim rows = dt.Select() ' Or select using a criteria like you did 
Me.TextBox1.Text = String.Join(Environment.NewLine, _ 
    rows.Select(Function(r) String.Join(",", r.ItemArray))) 

TextBox1MultiLineでなければなりませんがEnvironment.NewLineを表示します。レザの答えに加えて

Me.TextBox1.AppendText("something" & Environment.NewLine) 

Answer 2

、そしてあなたは私のような怠け者だとどこでもEnvironment.NewLineを書きたくない場合は、あなたが作成することができます。また、あなたは、AppendLineような何かを探しているなら、

を使用します

Imports System.Runtime.CompilerServices 

Public Module Extensions 
    <Extension()> _ 
    Public Sub AppendLine(ByVal TargetTextBox As TextBox, ByVal Text As String) 
     TargetTextBox.AppendText(Text & Environment.NewLine) 
    End Sub 
End Module 

使用法：

For Each item As Object In row.ItemArray 
    TextBox1.AppendLine(item.ToString()) 
Next