[اسامه الهرماوي]

وعليكم السلام...
نفترض إني عايز أبحث عن "صنف" بين تاريخين + يظهرلي ناتج عمود "إجمالي البيع" أعمل اه؟؟

شوف الكود دا كدا وخاصة الجزء اللي بين Try ودا المسؤل عن الجمع بإستخدام Sum في جملة الإستعلام.

الكود:

كود :

  Dim da As New OleDbDataAdapter
       Dim dt As New DataTable

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If

       'هنا عملت البحث بين تاريخين الأول والتاني

       Dim Query As String = "Select Sum(إجمالي_البيع) From الجدول Where 1=1"

       Query = Query & " AND حقل_التاريخ >= #" & DateTimePicker1.Value.ToString("yyyy/MM/dd") & "#"

       Query = Query & " AND حقل_التاريخ <= #" & DateTimePicker2.Value.ToString("yyyy/MM/dd") & "#"

       'هنا بحثت عن صنف محدد بين التاريخين اللي فاتو
       Query = Query & " AND حقل_الصنف  Like '%" & Trim$(TextBox1.Text) & "%'"

       'ملحوظة السطر اللي فوق علطول ممكن أكرره وأستخدمه مع أكثر من حقل حسب الإحتياج

       Dim cmd As New OleDbCommand(Query, con)
       da = New OleDbDataAdapter(cmd)
       dt.Clear()
       da.Fill(dt)


       'الجزء المسؤل عن جمع العمود المحدد اللي هو إجمالي_البيع
       Dim RecordCount As Double
       Try

           RecordCount = cmd.ExecuteScalar
           con.Close()

       Catch ex As Exception
           RecordCount = 0
       End Try

       'الناتج هيطلع هنا
       MsgBox(RecordCount)

ودمتم بخير.