منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] سؤال في الجريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] سؤال في الجريد فيو (/showthread.php?tid=37211)

سؤال في الجريد فيو - abu7shihab - 17-12-20

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

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

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

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

RE: سؤال في الجريد فيو - عبد الهادي بهاب - 18-12-20

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

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 


RE: سؤال في الجريد فيو - abu7shihab - 18-12-20

[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]

RE: سؤال في الجريد فيو - سعود - 18-12-20

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 


RE: سؤال في الجريد فيو - abu7shihab - 18-12-20

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

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

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

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