27-10-22, 02:51 PM
(آخر تعديل لهذه المشاركة : 27-10-22, 03:02 PM {2} بواسطة ali_ahmed12.)
(26-10-22, 12:10 PM)Taha Okla كتب : 1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).الله يرحم والديك خدم صحيح
2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.
يعني ضع كود تسميات الأعمدة بعد السطر :
كود :
DataGridView1.DataSource = dt
(26-10-22, 12:10 PM)Taha Okla كتب : 1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).
2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.
يعني ضع كود تسميات الأعمدة بعد السطر :
كود :
DataGridView1.DataSource = dt
ممكن كيفية تنبيه المستخدم في حال انه كمية تساوي صفر هدا جدول
هدا كود عندما اضغط enter في تكست بوكس السعر ينزل اسفل في قريد فيو
موضح جدول قاعده بيانات وكود عندما اضغط علي enter
كود :
Private Sub txtprice_KeyDown(sender As Object, e As KeyEventArgs) Handles txtprice.KeyDown
If e.KeyCode = Keys.Enter Then
For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1
If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then
MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")
cl()
Exit Sub
End If
Next
Dim row As DataRow = dt.NewRow
row(0) = txtid.Text
row(1) = txtlabel.Text
row(2) = txtqty.Text
row(3) = txtprice.Text
row(4) = txtamount.Text
dt.Rows.Add(row)
Me.DGV_PRODUCT.DataSource = dt
cl()
tootal()
End If
End Sub