29-09-22, 12:14 PM
السلام عليكم ورحمة الله وبركاته
عندما اقوم بعملية حفظ منتج في داتا قريد فيو وقاعدة بيانات يظهر جدول datatable مع جدول قاعدة بيانات في قريد فيو
مااالحل للمشكلة كود مرفق معا صورة
عندما اقوم بعملية حفظ منتج في داتا قريد فيو وقاعدة بيانات يظهر جدول datatable مع جدول قاعدة بيانات في قريد فيو
مااالحل للمشكلة كود مرفق معا صورة
كود :
If labell.Text = "" Then
MessageBox.Show("الرجاء ادخال اسم المنتج")
Exit Sub
End If
If Qty.Text = "" Then
MessageBox.Show("الرجاء ادخال الكمية")
Exit Sub
End If
'Dim DT As New DataTable
dt.Clear()
Dim da As New SqlDataAdapter("select *from PRODUCTS where label='" & labell.Text & "'", Module1.con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
MessageBox.Show("اسم منتج موجود مسبقا ")
Else
Dim DR = dt.NewRow
DR!label = labell.Text
DR!label_product = label_product.Text
DR!UNIT = UNIT.Text
DR!date = DateTimePicker1.Value
DR!Qty = Val(Qty.Text)
DR!TKLFA = Val(TKLFA.Text)
DR!price = Val(Price.Text)
DR!total = Val(tot(Qty.Text, TKLFA.Text))
dt.Rows.Add(DR)
Dim cmdb As New SqlCommandBuilder(da)
da.Update(dt)
MessageBox.Show("تم الحفظ بنجاح", "الاضافة", MessageBoxButtons.OK, MessageBoxIcon.Information)
fill_DGV()
cl()
End If