[sofiane-phy]

(30-10-19, 08:16 PM)asemshahen5 كتب : ضع قاعدة البيانات او الجداول المطلوبة .

---

تفضل هذا الكود المطلوب :

PHP كود :

   Private Sub dgv1_DoubleClick(sender As Object, e As EventArgs) Handles dgv1.DoubleClick
        Dim row As DataRow = dt.NewRow
        For i As Integer = 0 To dgvSale.Rows.Count - 1
            If dgv1.CurrentRow.Cells(0).Value = dgvSale.Rows(i).Cells(0).Value Then
                dgvSale.Rows(i).Cells(3).Value = dgvSale.Rows(i).Cells(3).Value + 1
                dgvSale.Rows(i).Cells(4).Value = (dgvSale.Rows(i).Cells(3).Value * dgvSale.Rows(i).Cells(2).Value)
                dgvSale.AllowUserToAddRows = False
                dgvSale.DataSource = dt
                total += dgvSale.Rows(i).Cells(4).Value
                txtTotal.Text = total
                txtBBO.Text = Val(txtDDO.Text) - Val(txtTotal.Text)
                txtClearSales()
                dgvSale.CurrentCell = dgvSale.Rows(i).Cells(0)
                dgvSale.Refresh()
                dgvSale.Rows(i).Selected = True
                Exit Sub
            End If
        Next
        row(0) = Me.dgv1.CurrentRow.Cells(0).Value
        row(1) = Me.dgv1.CurrentRow.Cells(1).Value
        row(2) = Me.dgv1.CurrentRow.Cells(2).Value
        row(3) = 1
        row(4) = 1 * dgv1.CurrentRow.Cells(2).Value
        dt.Rows.Add(row)
        For i As Integer = 0 To dgvSale.Rows.Count - 1
            total += dgvSale.Rows(i).Cells(4).Value
        Next
        txtTotal.Text = total
        txtBBO.Text = Val(txtDDO.Text) - Val(txtTotal.Text)
        dgvSale.CurrentCell = dgvSale.Rows(dgvSale.RowCount - 1).Cells(0)
        dgvSale.Rows(dgvSale.RowCount - 1).Selected = True
    End Sub 


أخي بارك الله فيك يعمل بشكل جيد
مشكووووووووووووووووووور ما قصرت