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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26420)



كود عرض البيانات - الأندلسى - 09-09-18

السلام عليكم اهل الابداع الكرام

اريد كود يسمح لى بعرض اكثر من صف معا من الداتا جريد فى تكست بوكس ... 

ملحوظه ... انا شغال باكسس 2007 وبطريقة الداتا ادابتور 

شكراااااا Heart Heart Heart Heart


RE: كود عرض البيانات - سعود - 09-09-18

وعليكم السلام
الجزئية المهمة هي نسخ الصفوف على الاقل عمود واحد الى مربع نص واحد بغض النظر عن كيف اتت البيانات.
PHP كود :
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        For i 
As Integer 0 To 5
            d
.Rows.Add("Number: " i)
 
       Next
    End Sub
    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        For i 
As Integer 0 To d.Rows.Count IIf(d.AllowUserToAddRows21)
 
           t.AppendText(d.Rows(i).Cells(0).Value vbNewLine)
 
       Next
    End Sub 



RE: كود عرض البيانات - الأندلسى - 09-09-18

شكرا اخى ولكن اريد التوضيح 
انا عندى داتا جريد بها صفين واريد ان اعرض الصفين معا فى 2 تيكست بوكس بمجر اللوووود 
انا اعرف كيف اعرض الصفوف باستخدام خاصية selection changed  ولكن المشكله فى اظهارهم معا فى نفس الوقت بدون استخدام هذه الخاصيه


RE: كود عرض البيانات - elgokr - 10-09-18

(09-09-18, 02:07 PM)الأندلسى كتب : شكرا اخى ولكن اريد التوضيح 
انا عندى داتا جريد بها صفين واريد ان اعرض الصفين معا فى 2 تيكست بوكس بمجر اللوووود 
انا اعرف كيف اعرض الصفوف باستخدام خاصية selection changed  ولكن المشكله فى اظهارهم معا فى نفس الوقت بدون استخدام هذه الخاصيه


اخى الحبيب الأندلسى


بخصوص الكود كل ما ستحتاج له هو استخدام التالى من مشاركة الاخ سعود
كود :
       For i As Integer = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
           t.AppendText(d.Rows(i).Cells(0).Value & vbNewLine)
       Next

الكود بعبارة سيقوم بجلب جميع الصفوف لديك 
اى كان عددها 2 او 10 ولو حتى 100 وسيقوم بجلجلب البيانات الموجودة فى العمود الاول

Rows(i) = تعنى بيانات الصفوف
Cells(0) = تعنى من العمود الاول

اتمنى ارفاق اى مثال لما لديك
حتى يتم وضع الكود طبقاً للمثال وسيتم شرح ما تم عمله
حتى توضح لك الصورة كاملاً

تحياتى لك
وتمنايتى لك التوفيق