08-08-19, 05:34 AM
(آخر تعديل لهذه المشاركة : 08-08-19, 05:36 AM {2} بواسطة eslame elgohary.)
عندى مشكلة وهى انني كنت اعمل فورم اضافة مرضي وبه زر بحث وعند اختيار مريض من البحث للتعديل يتم الرجوع الى الفورم بكامل البيانات للتعديل
المشكلة بقا دلوقتي لما ضيفت Panel لظهور الفورم داخل فورم اخر
فعند اختيار البحث لا يمكن اظهار البيانات
ده كود الاختيار الموجود فى الفورم الخاص بالبحث
وده كود الظهور الموجود فى الفورم الاصلي LAB_ADD
وده كود لظهور الفورم LAB_ADD داخل فورم SELECT_LAB
الخطأ فين لو سمحتوا عشان يظهر داخل الفورم الخاص ب SELECT_LAB
المشكلة بقا دلوقتي لما ضيفت Panel لظهور الفورم داخل فورم اخر
فعند اختيار البحث لا يمكن اظهار البيانات
ده كود الاختيار الموجود فى الفورم الخاص بالبحث
كود :
Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
If DataGridView1(0, DataGridView1.CurrentRow.Index).Selected = True Then
LAB_ADD.SHOW_DETAILES(DataGridView1.CurrentRow.Cells(1).Value)
LAB_ADD.EDITBUTTON.Enabled = True
LAB_ADD.DELETBUTTON.Enabled = True
LAB_ADD.SAVEBUTTON.Enabled = False
Me.Close()
End If
End Sub
وده كود الظهور الموجود فى الفورم الاصلي LAB_ADD
كود :
Sub SHOW_DETAILES(ID_)
Try
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM LAB_ADD WHERE LAB_CODE = '" & ID_ & "'", SqlConn)
DA.Fill(DT)
If DT.Rows.Count = 0 Then
MessageBox.Show("التحليل غير موجود برجاء التأكد من تواجد التحليل !!", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Dim SHOW_ As Integer = BindingContext(DT).Position
LAB_CODE.Text = DT.Rows(SHOW_).Item("BORG_CODE")
LAB_NAME.Text = DT.Rows(SHOW_).Item("BORG_NAME")
LAB_LAB.Text = DT.Rows(SHOW_).Item("BORG_LAB")
LAB_EG.Text = DT.Rows(SHOW_).Item("BORG_EG")
EDITBUTTON.Enabled = True
DELETBUTTON.Enabled = True
SAVEBUTTON.Enabled = False
End If
Catch ex As Exception
End Try
End Sub
وده كود لظهور الفورم LAB_ADD داخل فورم SELECT_LAB
كود :
Private Sub LABBUTTON_Click(sender As Object, e As EventArgs) Handles LABBUTTON.Click
Me.Panel1.Controls.Clear()
Dim f As New LAB_ADD With {.TopLevel = False, .AutoSize = False}
f.Parent = Panel1
f.Show()
End Sub
الخطأ فين لو سمحتوا عشان يظهر داخل الفورم الخاص ب SELECT_LAB