منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(25-01-17, 02:43 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 والتي تكون مع الارقام

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

كود :

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

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

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