(08-10-20, 03:13 AM)اسامه الهرماوي كتب : السلام عليكم...
تفضل:

كود :

  If con.State = ConnectionState.Closed Then
               con.Open()
           End If
           Dim Query As String = "Select Sum(الحقل) From الجدول Where 1=1"

           If dd1.Text <> "" Then
               'من
               Query = Query & " AND التاريخ >= '" & Now.ToString("yyyy-MM-dd") & "'"
           End If

           If dd2.Text <> "" Then
               'إلى
               Query = Query & " AND التاريخ <= '" & dd2.Value.ToString("yyyy-MM-dd") & "'"
           End If


           Dim cmd As New SqlCommand(Query, con)
           da = New SqlDataAdapter(cmd)
           dt.Clear()
           da.Fill(dt)

           Dim RecordCount As Double

           RecordCount = cmd.ExecuteScalar
           TextBox1.Text = Val(RecordCount)
           con.Close()

(08-10-20, 12:39 PM)HUNTER25 كتب :

(08-10-20, 03:13 AM)اسامه الهرماوي كتب : السلام عليكم...
تفضل:

كود :

  If con.State = ConnectionState.Closed Then
               con.Open()
           End If
           Dim Query As String = "Select Sum(الحقل) From الجدول Where 1=1"

           If dd1.Text <> "" Then
               'من
               Query = Query & " AND التاريخ >= '" & Now.ToString("yyyy-MM-dd") & "'"
           End If

           If dd2.Text <> "" Then
               'إلى
               Query = Query & " AND التاريخ <= '" & dd2.Value.ToString("yyyy-MM-dd") & "'"
           End If


           Dim cmd As New SqlCommand(Query, con)
           da = New SqlDataAdapter(cmd)
           dt.Clear()
           da.Fill(dt)

           Dim RecordCount As New Integer

           RecordCount = cmd.ExecuteScalar
           (TextBox1.Text = val(RecordCount
           con.Close()

لم تشتغل في مثالي ...
يبدة ان طريقة استدعاء و الاتصال بالقاعدة ليست نفسها في مثالي و في الكود الذي اقترحته