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

ايه افضل كود يتحقق ان العمود فيه قيمة وانه مش فاضى؟

مثلا فى عمود رقم 7

ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو

لكى استخدمه مع هذا اكود

Dim itms() As ListViewItem = ListView1Items.
Where(Function(i) i.SubItems(0).Text.Equals(TextBox1.Text) _
And Val(i.SubItems(3).Text).Equals(Val(TextBox2.Text))).ToArray

Me.ListView1.Items.Clear()
Me.ListView1.Items.AddRange(itms)

[مساعدة]

السلام عليكم

تفضل الكود

كود :

' Items الصف
' SubItems العمود
' الصف والعمود يبدأ بالرقم صفر
' يعني العمود الاول يكون العمود رقم صفر والعمود الثاني يكون العمود رقم واحد وهكذا في الصف

Dim hasValue As Boolean = ListView1.Items(1).SubItems(7).Text.Trim <> ""

هنا سيحتوي hasValue إما True وتعني فارغ أو False وتعني ليس فارغ

---

لكن لم أفهم قولك أنك تريد استخدامه مع الكود المذكور

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

(25-01-17, 02:41 PM)مساعدة كتب : السلام عليكم

تفضل الكود

كود :

' Items الصف
' SubItems العمود
' الصف والعمود يبدأ بالرقم صفر
' يعني العمود الاول يكون العمود رقم صفر والعمود الثاني يكون العمود رقم واحد وهكذا في الصف

Dim hasValue As Boolean = ListView1.Items(1).SubItems(7).Text.Trim <> ""

هنا سيحتوي hasValue إما True وتعني فارغ أو False وتعني ليس فارغ

---

لكن لم أفهم قولك أنك تريد استخدامه مع الكود المذكور

استخدمت هذا الكود لو يفعل شئ

If RadioButton5.Checked = True And CheckBox4.Checked = True Then
itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And Val(i.SubItems(4).Text <> Nothing)).ToArray
frm_fb_id_filter.ListView1.Items.Clear()
frm_fb_id_filter.ListView1.Items.AddRange(itms)


هل في اخطاء فى الكود خصوصا فى هذا السطر And Val(i.SubItems(4).Text <> Nothing)).ToArray

[مساعدة]

نعم هناك خطأ، وهو انك عملت مقارنة نص مع Nothing والمفروض تقارنه مع "" بالاضافة لوضع Val والتي تكون مع الارقام

كود :

itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray

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

(26-01-17, 10:35 AM)مساعدة كتب : نعم هناك خطأ، وهو انك عملت مقارنة نص مع Nothing والمفروض تقارنه مع "" بالاضافة لوضع Val والتي تكون مع الارقام

كود :

itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray

حسنا اخى بارك الله فيك على شرحك المفصل لى
ربنا يزيدك من علمه ويزيدك تواضع

+
هجرب غدا عندما يشتغل النت مرة تانية

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

مرحبا اخى

هل جربت هذا الكود؟

لانه لم يعمل

itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray

[مساعدة]

الكود يحضر الأسطر التي يتوافق فيها شرطان:

الشرط الأول:
أن تكون قيمة خلية العمود (num) ينتهي بنص يطابق محتوى tgsearch.Text

كود :

i.SubItems(num).Text.EndsWith(tgsearch.Text)

الشرط الثاني:
أن لا يكون محتوى خلية العمود الخامس (4) فارغا

كود :

i.SubItems(4).Text <> ""

كل مشاركاتي في هذا الموضوع اجتهاد، لأنك لم تضع مشروعك لتجربته، (على أن يكون المشروع يحتوي بيانات وليس فارغاً)،

[صبري زينوبي]

كود :

If ListView1.Items(1).SubItems(7).Text = Nothing Then
           MsgBox("خانة فارغة")
       Else
           MsgBox(" فيه قيمة")
       End If

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

(30-01-17, 11:03 AM)مساعدة كتب : الكود يحضر  الأسطر التي يتوافق فيها شرطان:

الشرط الأول:
أن تكون قيمة خلية العمود (num) ينتهي بنص يطابق محتوى tgsearch.Text

كود :

i.SubItems(num).Text.EndsWith(tgsearch.Text)

الشرط الثاني:
أن لا يكون محتوى خلية العمود الخامس (4) فارغا

كود :

i.SubItems(4).Text <> ""

كل مشاركاتي في هذا الموضوع اجتهاد، لأنك لم تضع مشروعك لتجربته، (على أن يكون المشروع يحتوي بيانات وليس فارغاً)،

اعلم اخى انى تعبتك معى

ولكن غصب عنى المشروع حجمه كبير

واتمنى لو تفتح خاصية الرسائل لديك

او اى طريقة للتواصل معك

او تدخلى تيم فيور
لترى المشروع بنفسك

واكون ممنون لك

---

(30-01-17, 12:30 PM)صبري زينوبي كتب :

كود :

If ListView1.Items(1).SubItems(7).Text = Nothing Then
           MsgBox("خانة فارغة")
       Else
           MsgBox(" فيه قيمة")
       End If

شكرا لك اخى

ولكن الوضع مختلف مع الكود المستخدم

[مساعدة]

بالنسبة لي، لا يوجد عندي تيم فيور،

اعمل مشروع مصغر على أن يحتوي بيانات لإيجاد الكود المناسب.