01-06-22, 09:29 PM
(آخر تعديل لهذه المشاركة : 01-06-22, 09:30 PM {2} بواسطة safralfahd.)
السلام عليكم ورحمة الله
تحية طيبة
حفظكم الله
أردت انشاء (تعديل) من داخل الداتا جريد فيو عن طريق عامود... وعند الضغط عليه تظهر البيانات التي أريد تعديلها.
قمت بالدخول إلى (DataGridView Tasks) بالضغط على (Edit Column) ثم إلى Add واخترت العمود (تعديل).. وغيرت (ColumnType) إلى (DataGridViewImageColumn) واخترت لها صورة معينة.
المشكلة:
عند تشغيل البرنامج تظهر معلومات الداتا جريد المخزنة، عدا عمود (التعديل) ثم تظهر رسالة ... وعند الضغط على (Ok).. يظهر عمود (التعديل) وعند الضغط على التعديل ترجع الرسالة وتظهر.
الكود:
وللايضاح الصور في المرفقات...
وجزى الله خيراً كل من مد يد العون للمساعدة
تحية طيبة
حفظكم الله
أردت انشاء (تعديل) من داخل الداتا جريد فيو عن طريق عامود... وعند الضغط عليه تظهر البيانات التي أريد تعديلها.
قمت بالدخول إلى (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
وللايضاح الصور في المرفقات...
وجزى الله خيراً كل من مد يد العون للمساعدة