منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله
تحية طيبة
حفظكم الله

أردت انشاء (تعديل) من داخل الداتا جريد فيو عن طريق عامود... وعند الضغط عليه تظهر البيانات التي أريد تعديلها.
قمت بالدخول إلى (DataGridView Tasks) بالضغط على (Edit Column) ثم إلى Add واخترت العمود (تعديل).. وغيرت (ColumnType) إلى (DataGridViewImageColumn) واخترت لها صورة معينة.
المشكلة:
عند تشغيل البرنامج تظهر معلومات الداتا جريد المخزنة، عدا عمود (التعديل) ثم تظهر رسالة ... وعند الضغط على (Ok).. يظهر عمود (التعديل) وعند الضغط على التعديل ترجع الرسالة وتظهر.

كود :

Private Sub DGVPrd_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)

       If e.ColumnIndex = 12 Then

           If Con.State = 1 Then Con.Close()

           Con.Open()

           cmd = New SqlCommand("select * from bok_tbl where Bok_ID=@Bok_ID", Con)

           cmd.Parameters.AddWithValue("@Bok_ID", DGVPrd.CurrentRow.Cells(0).Value)

           rdr = cmd.ExecuteReader

           rdr.Read()

           If rdr.HasRows Then

               With Frm_Add_Update_Prd

                   .load_Bok_tbl()

                   .Bok_ID.Text = rdr("Bok_ID").ToString

                   .Bok_Parcode.Text = rdr("Bok_Parcode").ToString

                   .BokName.Text = rdr("BokName").ToString

                   .BokMulf.Text = rdr("BokMulf").ToString

                   .BokMhqq.Text = rdr("BokMhqq").ToString

                   .BokDar.Text = rdr("BokDar").ToString

                   .BokNshr.Text = rdr("BokNshr").ToString

                   .BokTbAh.Text = rdr("BokTbAh").ToString

                   .TabhData.Text = rdr("TabhData").ToString

                   .BokVol.Text = rdr("BokVol").ToString

                   .Bokprice.Text = rdr("Bokprice").ToString

                   .CmbCat.SelectedValue = rdr("Cat_ID").ToString

                   Dim data As Byte() = DirectCast(rdr("BokImage"), Byte())

                   Dim ms As New MemoryStream(data)

                   Dim bitamp As New System.Drawing.Bitmap(ms)

                   .BokImage.Image = bitamp

                   .Label1.Text = "تعديل بيانات الكتاب" & DGVPrd.CurrentRow.Cells(2).Value

                   .btnSavebok.Enabled = False

                   .btneditBok.Enabled = True

                   .Show()

               End With

           End If

           rdr.Close()

           Con.Close()

       ElseIf e.ColumnIndex = 13 Then

       End If

   End Sub

وللايضاح الصور في المرفقات...

وجزى الله خيراً كل من مد يد العون للمساعدة

ادخل على خصائص العمود (تعديل) مره اخرى
وامسح الموجود في الخاصية DataPropertyName

اذا استمرت المشكلة اذكر مع التوضيح
كيف تربط الداتاجريد بالبيانات

لا يوجد شيء لأمسحه في خاصية DataPropertyName

عن طريق choose data source

المشكلة مش من الكود , جربت عملت جدول وداتا كرد وعملت نفس الخطوات وظهرت نفس المشكلة
لايمكن التحويل من string الى Drawing
مسحت اسم العمود من خاصية DataPropertyName
ومسحت العمود من الاكسس وانشات اخر بنوع بيانات مرفق مش نص
واختفت المشكلة وظهرت الصورة

ولو كانت قاعدة بيانات سيكوال كيف العمل؟

اعتقد نفس الفكرة
يمكن مايتعرف الداتا كرد على نوع الحقل في السكيول سيرفر
ارفق صورة لخصائص الكولم للتعديل في الداتا كرد مثل هذه

جزاك الله خيراً الحمد لله انتهت المشكلة وعملت بشكل صحيح

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

safralfahd

Ahmads

safralfahd

نيمو

safralfahd

نيمو

safralfahd