خصم الكميات الموجوده باكتر من تاريخ

كود :

           For Each r As DataGridViewRow In dgvprodac.Rows

                Dim ad As Integer = Val(r.Cells(0).Value)

                Dim txP As String = Val(r.Cells(1).Value)

                Dim xt As Single = Val(r.Cells(2).Value)

                Dim txC As Integer = Val(r.Cells(3).Value)

                cmd.CommandText = String.Format(" UPDATE [store] SET [sanf_kem] = sanf_kem -{0}  WHERE [ID_sanf] = {1} ", xt, ad)

                cmd.ExecuteNonQuery()

            Next

كود :

   ' الحساب والحفظ الاتوماتيكي

    Private Sub Btn_CalcAndSave_Click(sender As Object, e As EventArgs) Handles Btn_CalcAndSave.Click

        Dim Total As Integer = Val(Txt_Total_Buy.Text)

        For k As Integer = 0 To dgv_table.Rows.Count - 1



            Dim MyArr(dgv_table.Rows.Count - 1) As Integer

            For i As Integer = 0 To dgv_table.Rows.Count - 1

                MyArr(i) = dgv_table.Rows(i).Cells("item_Qty").Value

            Next

            If Total >= MyArr(0) Then

                Total = Total - MyArr(0)

                ' حفظ التعدبلات على اول سجل يظهر

                Update_ItemExp(dgv_table.Rows(0).Cells("Item_Code").Value,

                                         dgv_table.Rows(0).Cells("Item_Name").Value,

                                         dgv_table.Rows(0).Cells("Item_Experiance").Value,

                                         0,

                                         False,

                                         dgv_table.Rows(0).Cells("Exp_ID").Value)

                ' اعادة التحميل

                selectItem()

            Else

                Exit Sub

            End If

        Next

        MessageBox.Show("تم حساب المنتجات المباعة بالكامل والحفظ بنجاح", "حساب", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Btn_CalcAndSave.Enabled = False

        Txt_Searsh.Text = Nothing

    End Sub

كود :

     sqlstr = "Select min(date_ex),sanf_kem from store where ID_sanf =@pass"





            cmd = New OleDbCommand(sqlstr, con)

            cmd.Parameters.Add(New OleDbParameter("@pass", ad))

            con.Open()

            Dim dr As OleDb.OleDbDataReader = cmd.ExecuteScalar()

            If dr.Read() Then

                DateTimePicker1.Value = dr.Item(0)

                TextBox5.Text = dr.Item(1)

            End If

كود :

 '----------Public Function Min VB.Net With Access ----------

    Public Function Min_Table() As String

        Dim Query As String = "Select Min(اسم الحقل) From الجدول"

        Dim a As String = Nothing

        Dim Cmd As OleDbCommand

        Cmd = New OleDbCommand(Query, Con)

        If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        a = Cmd.ExecuteScalar()

        Con.Close()

        Return a

    End Function

كود :

TextBox5.Text.Text = Min_Table()

كود :

Dim cmd As OleDbCommand = New OleDbCommand("SELECT date_ex, sanf_kem from store WHERE ID_sanf =@pass ORDER BY ID date_ex", con)

        If con.State = ConnectionState.Open Then

            con.Close()

        End If

        con.Open()

        Dim dr As OleDbDataReader = cmd.ExecuteReader

        While dr.Read()

            DateTimePicker1.Value = dr2(0)

            TextBox1.Text = dr2(1)

            Exit While

        End While