[الماجيك مسعد]

السلام عليكم

Dim items As List(Of ListViewItem) = Array.ConvertAll((From n In companyName Select n.Text).ToArray(), Function(s) New ListViewItem(s)).ToList

Dim items1 As List(Of ListViewItem) = Array.ConvertAll((From n In phones Select n.Text).ToArray(), Function(s) New ListViewItem(s)).ToList

Dim items2 As List(Of ListViewItem) = Array.ConvertAll((From n In adress Select n.Text).ToArray(), Function(s) New ListViewItem(s)).ToList

glist.Items.AddRange(items.ToArray)


items1
items2
ازاي اضيفهم الي SubItems

ولكن عبر AddRange

كيف يمكن ذلك

[5000]

جرب هذه الطريقة
Dim items As New List(Of ListViewItem)

For i = 0 To CompanyName.Count - 1
    items.Add(New ListViewItem(New String() {CompanyName(i).Text, phones(i).Text, adress(i).Text}))
Next

glist.Items.AddRange(items.ToArray)

[الماجيك مسعد]

(10-03-19, 04:48 PM)5000 كتب : جرب هذه الطريقة
Dim items As New List(Of ListViewItem)

For i = 0 To CompanyName.Count - 1
    items.Add(New ListViewItem(New String() {CompanyName(i).Text, phones(i).Text, adress(i).Text}))
Next

glist.Items.AddRange(items.ToArray)

شكرا جزيلا
ولكن انا اريد الابتعاد عن حلقة الدوران لازيد من سرعة البرنامج
بما ان CompanyName عبارة عن مصفوفة فاريد اضافتها مصفوفة مباشرة لسرعة الوقت
وبالفعل لما عملتها بانت انها اسرع بكثير من حلقة الدوران ولكن بقت المشكلة في subitems
لذا ابحث عن حل لذلك

[5000]

ولكن الكود الذي وضعته لك يضيف address وphones في subitems

[الماجيك مسعد]

(10-03-19, 05:15 PM)5000 كتب : ولكن الكود الذي وضعته لك يضيف address وphones في subitems

نعم اعلم
ولكن داخل حلقة دوران انا لا اريد استخدم حلقة دوران خالص
انا قدرت اضيف اول شيء كمصفوفة بدون اخطاء ولكن لم اعرف كيف ذلك مع subitems
واكيد ليها طريقة

[5000]

جرب هذا الكود

Dim items As List(Of ListViewItem) = (From n In Enumerable.Range(0, CompanyName.Count - 1) Select New ListViewItem(New String() {CompanyName(n).Text, phones(n).Text, adress(n).Text})).ToList

glist.Items.AddRange(items.ToArray)

[الماجيك مسعد]

(10-03-19, 05:33 PM)5000 كتب : جرب هذا الكود

Dim items As List(Of ListViewItem) = (From n In Enumerable.Range(0, CompanyName.Count - 1) Select New ListViewItem(New String() {CompanyName(n).Text, phones(n).Text, adress(n).Text})).ToList

glist.Items.AddRange(items.ToArray)

الله ينور عليك والله
تسلم ايدك اشتغل تمام

بس تفتكر كدا اسرع من حلقة الدوران ولا نفس الوقت؟

[5000]

يتضح عند استخدام بيانات كثيرة،
للأسف ليس لدي مشروع به بيانات كثيرة لتجربة سرعة هذا الكود ومعرفة الفرق

[الماجيك مسعد]

(10-03-19, 06:22 PM)5000 كتب : يتضح عند استخدام بيانات كثيرة،
للأسف ليس لدي مشروع به بيانات كثيرة لتجربة سرعة هذا الكود ومعرفة الفرق

تمام يا غالي
اشكرك جدا وتسلم ايدك بجد
ويريت لو لديك وقت ان تري هذه المشكلة ربما تستطيع المساعدة
http://vb4arb.com/vb/showthread.php?tid=...#pid137967