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, 05:09 PM (آخر تعديل لهذه المشاركة : 30-10-19, 05:12 PM {2} بواسطة sofiane-phy.)
(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
بارك الله فيك أخي لكن لم ينجح معي هل هناك خلل في طرحي للموضوع رابط الصورة :https://prnt.sc/pq57bx
لاحظ عند النقر على سطر داتا قريد فيو الاول تتضاعف الكمية لكن السطر الذي يحتويعلى الكود 11 لا يحدد يبقى السطر الاخير محدد
For Each row As DataGridViewRow In DataGridView2.Rows If row.Cells(0).Value = DataGridView1.CurrentRow.Cells(0).Value Then row.Cells(3).Value += 1 DataGridView2.Refresh() DataGridView2.Rows(row.Index).Selected = True End If Next
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
30-10-19, 06:13 PM (آخر تعديل لهذه المشاركة : 30-10-19, 06:23 PM {2} بواسطة sofiane-phy.)
أخي asemshahen5 بارك الله فيك
أنا مجرد متعلم جديد لكن اين هو الخلل
كود :
Dim total As Decimal
Dim row As DataRow = dt.NewRow
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
'MsgBox("الصنف موجود", MsgBoxStyle.Exclamation, "تنبيه")
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()
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
30-10-19, 08:16 PM (آخر تعديل لهذه المشاركة : 30-10-19, 08:39 PM {2} بواسطة 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
(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
أخي بارك الله فيك يعمل بشكل جيد
مشكووووووووووووووووووور ما قصرت
