[ali_ahmed12]

السلام عليكم ورحمة الله وبركاته عندما أقوم بحفظ بيانات تظهر مشكلة في DATATABLE للعلم كود صحيح نفس اسماء اعمده في قاعدة البيانات ونفس اسماء textbox  
كود مرفق معا صوره توضح ماهو الخطأ

كود :

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

       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!date = DateTimePicker1.Value
           DR!Qty = Val(Qty.Text)
           DR!price = Val(Price.Text)
           DT.Rows.Add(DR)
           Dim cmdb As New SqlCommandBuilder(da)
           da.Update(DT)
           MessageBox.Show("تم الحفظ بنجاح", "الاضافة", MessageBoxButtons.OK, MessageBoxIcon.Information)
           cl()
       End If

[ali_ahmed12]

السلام عليكم ورحمة الله وبركاته عندما أقوم بحفظ بيانات تظهر مشكلة في DATATABLE للعلم كود صحيح نفس اسماء اعمده في قاعدة البيانات ونفس اسماء textbox  
كود مرفق معا صوره توضح ماهو الخطأ

كود :

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

       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!date = DateTimePicker1.Value
           DR!Qty = Val(Qty.Text)
           DR!price = Val(Price.Text)
           DT.Rows.Add(DR)
           Dim cmdb As New SqlCommandBuilder(da)
           da.Update(DT)
           MessageBox.Show("تم الحفظ بنجاح", "الاضافة", MessageBoxButtons.OK, MessageBoxIcon.Information)
           cl()
       End If

ياريت الي يعرف الحل لايبخل علي

[atefkhalf2004]

حضرتك هناك datareader مفتوح ومستخدم
استخدم datareader2 مثلا

[ali_ahmed12]

حضرتك  هناك  datareader   مفتوح  ومستخدم
استخدم   datareader2   مثلا

هو datareder واحد مستخدم في عملية دخول فقط وانا غلقها
وفي كود هدا لا استخدم datareder 
كيف حل

[رضوان الجماعي]

ارفق المشروع نعدل عليه افظل بكثير ونشرح وين كان الخطى فافضل حل هو ارفاق المشروع