[abu7shihab]

السلام عليكم ورحمة وبركاته 

هل ممكن نسخ جميع البيانات الموجودة في الجريد فيو الى تكس بوكس معين وليكون textbox1 سواء مع الاعمدة او بدون

ارجو الاجابه لمن لديهم الخبرة 

وجزاكم الله كل خير

[عبد الهادي بهاب]

محاولة ضع الكود في زر

PHP كود :

 Dim txt1, txt2 As String

        For index = 0 To DataGridView1.RowCount - 2
            txt1 = ""

            For index2 = 0 To DataGridView1.ColumnCount - 1
                txt1 = txt1 & "_" & DataGridView1.Rows(index).Cells(index2).Value.ToString
            Next
            txt2 = txt2 & vbNewLine & txt1
        Next

        TextBox1.Text = txt2 


[abu7shihab]

[quote pid='169821' dateline='1608250706']
لك جزيل الشكر اخي عبد الهادي بهاب على ردك ومحاولتك الطيبة لكن للاسف الكود لم يعطي النتيجة المطلوبة

بارك الله فيك وجزاك الله خير

PHP كود :

 Dim txt1, txt2 As String

        For index = 0 To DataGridView1.RowCount - 2
            txt1 = ""

            For index2 = 0 To DataGridView1.ColumnCount - 1
                txt1 = txt1 & "_" & DataGridView1.Rows(index).Cells(index2).Value.ToString
            Next
            txt2 = txt2 & vbNewLine & txt1
        Next

        TextBox1.Text = txt2 


[/quote]

[سعود]

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 4
            d.Rows.Add(i, "Name :_" & i, i + 10)
        Next
    End Sub
    Private Sub btnget_Click(sender As Object, e As EventArgs) Handles btnget.Click
        TextBox1.Clear()
        For i As Integer = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
            TextBox1.AppendText("Number: " & d.Rows(i).Cells(0).Value & vbTab & "Name: " & d.Rows(i).Cells(1).Value & vbTab & "Age: " & d.Rows(i).Cells(2).Value & vbTab & vbNewLine)
        Next
    End Sub 


[abu7shihab]

اخي العزيز سعود

شكرا لك على حالك الوافي والكود شغال 100%
جزاك الله كل خير وزادك من واسع علمه

والشكر للاخ عبدالهادي

بارك الله فيكم اخواني