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

السلام عليكم ورحمة الله وبركاته
ويبارك فيك ولك اخي العيدروس ... ولا يهمك الله يقدرنا على فعل الخير
بالنسبة للسيكوال سيرفر  تختلف قليلا جملة الاستعلام وعادة مع السيكوال سيرفر انا استحدم الباراميترات 
المهم اليك الكود 

كود :

' تعريف مصفوفة نهاية تاريخ كل شهر
   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 dt As New DataTable()
     
       Dim Cmd As New SqlCommand()
       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)
                   Cmd = New SqlCommand("select mouney from Table_1 Where datee >= @DD1  And datee <= @DD2", Cn)
                   Cmd.Parameters.Add("@DD1", SqlDbType.Date).Value = date1
                   Cmd.Parameters.Add("@DD2", SqlDbType.Date).Value = date2
                   If Cn.State = ConnectionState.Closed Then Cn.Open()
                   dt.Load(Cmd.ExecuteReader())
                   Cn.Close()
               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)
                   Cmd = New SqlCommand("select mouney from Table_1 Where datee >= @DD1  And datee <= @DD2", Cn)
                   Cmd.Parameters.Add("@DD1", SqlDbType.Date).Value = date1
                   Cmd.Parameters.Add("@DD2", SqlDbType.Date).Value = date2
                   If Cn.State = ConnectionState.Closed Then Cn.Open()
                   dt.Load(Cmd.ExecuteReader())
                   Cn.Close()
               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
       Txt_Total_1.Text = lst.Items(0)
       Txt_Total_2.Text = lst.Items(1)
       Txt_Total_3.Text = lst.Items(2)
       Txt_Total_4.Text = lst.Items(3)
       Txt_Total_5.Text = lst.Items(4)
       Txt_Total_6.Text = lst.Items(5)
       Txt_Total_7.Text = lst.Items(6)
       Txt_Total_8.Text = lst.Items(7)
       Txt_Total_9.Text = lst.Items(8)
       Txt_Total_10.Text = lst.Items(9)
       Txt_Total_11.Text = lst.Items(10)
       Txt_Total_12.Text = lst.Items(11)
   End Sub