تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة فى اظهار فورم داخل فورم اخر باداة Panel
#1
عندى مشكلة وهى انني كنت اعمل فورم اضافة مرضي وبه زر بحث وعند اختيار مريض من البحث للتعديل يتم الرجوع الى الفورم بكامل البيانات للتعديل
المشكلة بقا دلوقتي لما ضيفت 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
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
مشكلة فى اظهار فورم داخل فورم اخر باداة Panel - بواسطة eslame elgohary - 08-08-19, 05:34 AM


التنقل السريع :


يقوم بقرائة الموضوع: