(30-10-19, 04:16 PM)asemshahen5 كتب :

PHP كود :

       For Each row As DataGridViewRow In DataGridView1.Rows
            If row.Index = DataGridView1.CurrentRow.Index Then
                DataGridView1.Rows.Add(row.Cells(0).Value, row.Cells(1).Value, row.Cells(2).Value, row.Cells(3).Value, row.Cells(4).Value, row.Cells(5).Value)
            End If
        Next 


(30-10-19, 06:24 PM)asemshahen5 كتب :

PHP كود :

       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
'                'MsgBox("الصنف موجود", MsgBoxStyle.Exclamation, "تنبيه")
                dgvSale.Rows(i).Cells(3).Value += 1
                dgvSale.Rows(i).Cells(4).Value = Val(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.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 


عندي سؤال لماذا تستخدم : dgvSale.DataSource = dt في اللوب .

او ضع مثالا مصغرا في المرفقات

(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