[kslawy]

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

إذا كانت البيانات غير مرتبطة بقاعدة بيانات استخدم LINQ للبحث

افتح مشروع جديد ، أضف في الـ Form أداة Listview غير خاصية الـ View إلي Detail وأنشيء بالأداة 2 عمود
أضف أيضاً زر أمر Button وعدد 2 TextBox للبحث عن التاريخ ، وأيضاً أضف أداة ListBox لعرض النتيجة .

في حدث FormLoad ضع الكود التالي :

كود :

[color=#0000cd]For[/color] i [color=#0000cd]As Integer[/color] = 0 To 9
            [color=#0000cd]Dim[/color] itm [color=#0000cd]As[/color] ListViewItem = [color=#0000cd]Me[/color].ListView1.Items.Add("ListviewItem " & i.ToString)
            itm.SubItems.Add(Now.AddDays(i).ToShortDateString)
        [color=#0000cd]Next[/color]

في زر الأمر نضع الكود التالي :

كود :

[color=#0000cd]Dim[/color] itms = ([color=#0000cd]From[/color] itm [color=#0000cd]As[/color] ListViewItem [color=#0000cd]In Me[/color].ListView1.Items _
                   [color=#0000cd]Where CDate[/color](itm.SubItems(1).Text) >= [color=#0000cd]CDate[/color](TextBox1.Text) [color=#0000cd]And CDate[/color](itm.SubItems(1).Text) <= [color=#0000cd]CDate[/color](TextBox2.Text) _
                   [color=#0000cd]Select[/color] itm.Text).ToArray
      
        ListBox1.Items.Clear()
       ListBox1.Items.AddRange(itms)

***
**
*