Datagridview a textbox multiline

[valderramalex]

Buenas tardes caballeros

estoy haciendo un desarrollo en el cual estoy llenando un datagridview, pero estos datos los tengo que llevar a otro form en un textbox multiline para generar un pdf alguno me puede recomendar un tutorial o un ejemplo para guiarme soy nuevo en esto y hay cosas que todavia no manejo muchas gracias de antemano.

[luis404]

Ok, ya tienes como recorrer el datagrid?

si no la manera para recorrer un datagrid seria así

for (int zzzzZZZZ = 0; zzzzZZZZ < dataGridView_Reporte.Rows.Count; zzzzZZZZ++)
{
TuTXT.Text = dataGridView_Reporte.Rows[zzzzZZZZ].Cells[1].Value + "\r\n";
//El valor "\r\n" es para saltar la linea
}

[valderramalex]

hola tu gracias por la ayuda me sirvio mucho ahora tengo otro inconveniente
me mandaron a hacer una consulta a sql para ingresar los datos en un texbox multiline este es el codigo que he generado hasta ahora

pero no me trae ningun dato de la bd en la cual ya se han guardado valores

ejecutaradapter("SELECT * from T_Productos WHERE Id_Cotizacion=('" & TextBox1.Text & "')")
adapter.Fill(dataset)
TextBox4.Text = dataset.Tables(0).Rows(0)(0).ToString & vbCrLf
TextBox4.Text = dataset.Tables(0).Rows(0)(1).ToString & vbCrLf
TextBox4.Text = dataset.Tables(0).Rows(0)(2).ToString & vbCrLf
TextBox4.Text = dataset.Tables(0).Rows(0)(3).ToString & vbCrLf
TextBox4.Text = dataset.Tables(0).Rows(0)(4).ToString & vbCrLf
TextBox4.Text = dataset.Tables(0).Rows(0)(5).ToString & vbCrLf
TextBox4.Text = dataset.Tables(0).Rows(0)(6).ToString & vbCrLf

no se en que estoy fallando. le hago un salto de linea para que me muestre el otro dato no se si esta bien el codigo de antemano muchas gracias por la ayuda

[Aquaventus]

Hola valderramalex, lo que estas haciendo allí es pasar tu dato al textbox, luego pasas otra vez "eliminando" lo que estaba y copiando el nuevo, así hasta que solo te muestra la última linea, para concatenar tendrñias que hacer esto :

Código vb:

ejecutaradapter("SELECT * from T_Productos WHERE Id_Cotizacion='" & TextBox1.Text & "'")
adapter.Fill(dataset)
TextBox4.Text = dataset.Tables(0).Rows(0)(0).ToString & vbCrLf
'Colocar el textbox + el nuevo dato a cada uno
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(1).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(2).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(3).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(4).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(5).ToString & vbCrLf
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(0)(6).ToString
 

Saludos!.

[valderramalex]

Muchas gracias por la ayuda me sirvio de mucho.

[valderramalex]

buenos días que pena molestarlos otra vez, pero acudo a ustedes ya que me han ayudado mucho en este proceso de aprendizaje, este tema es relacionado con el punto anterior solo que en el punto anterior solo me trae una fila como tal de sql. lo que surgió un problema cuando vienen mas datos como hago para plasmar esa información y ponerla en el texbox, realice este código para ver si me funcionaba pero no ha funcionado agradezco de antemano su ayuda muchas gracias.

Dim x As Integer
For x = 0 To 30
ejecutaradapter("SELECT * from T_Productos WHERE Id_Cotizacion=('" & TextBox1.Text & "')")
adapter.Fill(dataset)
TextBox4.Text = dataset.Tables(0).Rows(B1)(0).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(B1)(1).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(B1)(2).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(B1)(3).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(B1)(4).ToString
B1 = B1 + 1
x = x + 1

[Aquaventus]

Hola valderramalex, no es necesario que ejecutes la consulta en cada iteración de tu for, puedes hacer lo siguiente :

Código vb:

'Primero ejecutas la consulta
ejecutaradapter("SELECT * from T_Productos WHERE Id_Cotizacion=('" & TextBox1.Text & "')")
adapter.Fill(dataset)
'Luego recorres todos los datos que trae dicha consulta
For x = 0 To dataset.Tables(0).Rows.Count
 
TextBox4.Text = dataset.Tables(0).Rows(x)(0).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(x)(1).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(x)(2).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(x)(3).ToString
TextBox4.Text = TextBox4.Text & dataset.Tables(0).Rows(x)(4).ToString & vbCrLf
 
Next
 

Saludos!.