[ابراهيم ايبو]

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

كود :

   ' تعريف مصفوفة نهاية تاريخ كل شهر
   Dim MyDate() As String = {"31/1/", "", "31/3/", "30/4/", "31/5/", "30/6/", "31/7/", "31/8/", "30/9/", "31/10/", "30/11/", "31/12/"}

 الان في حدث تغيير الكومبو نكتب الكود التالي
 

كود :

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
     
 Dim da As New OleDbDataAdapter()
 Dim dt As New DataTable()
       Dim lst As New ListBox() ' تعريف ليست بوكس افتراضي
       lst.Items.Clear()
       If ComboBox1.Text <> "" Then
           For b As Byte = 0 To 11
               dt.Clear()
             
             
               If Convert.ToInt32(ComboBox1.Text) Mod 4 = 0 Then
                   MyDate(1) = "29/2/" ' إذا كانت السنة كبيسة

                   Dim date1 As Date = ("1 / " & b + 1 & " / " & ComboBox1.Text)
                   Dim date2 As Date = (MyDate(b) & ComboBox1.Text)
                   da = New OleDbDataAdapter("select mouney from Table1 where datee  between # " & date1.ToString("MM/dd/yyyy") & "# and #" & date2.ToString("MM/dd/yyyy") & "#", con)
                   da.Fill(dt)
               ElseIf Convert.ToInt32(ComboBox1.Text) Mod 4 > 0 Then
                   MyDate(1) = "28/2/"
                   Dim date1 As Date = ("1 / " & b + 1 & " / " & ComboBox1.Text)
                   Dim date2 As Date = (MyDate(b) & ComboBox1.Text)
                   da = New OleDbDataAdapter("select mouney from Table1 where datee  between # " & date1.ToString("MM/dd/yyyy") & "# and #" & date2.ToString("MM/dd/yyyy") & "#", con)
                   da.Fill(dt)
               End If


               If dt.Rows.Count > 0 Then
                   Dim kk As Double = 0
                   For s As Byte = 0 To dt.Rows.Count - 1
                       kk += dt.Rows(s)(0)
                   Next
                   lst.Items.Add(kk.ToString("0.00"))
               Else
                   lst.Items.Add("0.00")
               End If
           Next
       End If
       TextBox1.Text = lst.Items(0)
       TextBox2.Text = lst.Items(1)
       TextBox3.Text = lst.Items(2)
       TextBox4.Text = lst.Items(3)
       TextBox5.Text = lst.Items(4)
       TextBox6.Text = lst.Items(5)
       TextBox7.Text = lst.Items(6)
       TextBox8.Text = lst.Items(7)
       TextBox9.Text = lst.Items(8)
       TextBox10.Text = lst.Items(9)
       TextBox11.Text = lst.Items(10)
       TextBox12.Text = lst.Items(11)
   End Sub