[asemshahen5]

PHP كود :

Panel1.Controls.Add(f) 


نسيت حاجة زي دي مثلا

[Beginer]

أنت تقوم بتعبئة البيانات في الفورم الخام LAB_ADD ولكنك تنشئ نسخة منه باسم f وهو المفروض تقوم بتعبئة بياناته هكذا

PHP كود :

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
    If DataGridView1(0, DataGridView1.CurrentRow.Index).Selected = True Then
        Dim f As New LAB_ADD With {.TopLevel = False, .AutoSize = False}
        f.SHOW_DETAILES(DataGridView1.CurrentRow.Cells(1).Value)
        f.EDITBUTTON.Enabled = True
        f.DELETBUTTON.Enabled = True
        f.SAVEBUTTON.Enabled = False

        Me.Panel1.Controls.Clear()
        f.Parent = Panel1
        f.Show()
        'Me.Close()
    End If
End Sub 


لم أفهم دور Me.Close في DataGridView1_Click، لقد قمت بتعطيله مؤقتا إلى أن تنظر في أمره

[eslame elgohary]

(10-08-19, 12:32 AM)Beginer كتب : أنت تقوم بتعبئة البيانات في الفورم الخام LAB_ADD ولكنك تنشئ نسخة منه باسم f وهو المفروض تقوم بتعبئة بياناته هكذا

PHP كود :

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
    If DataGridView1(0, DataGridView1.CurrentRow.Index).Selected = True Then
        Dim f As New LAB_ADD With {.TopLevel = False, .AutoSize = False}
        f.SHOW_DETAILES(DataGridView1.CurrentRow.Cells(1).Value)
        f.EDITBUTTON.Enabled = True
        f.DELETBUTTON.Enabled = True
        f.SAVEBUTTON.Enabled = False

        Me.Panel1.Controls.Clear()
        f.Parent = Panel1
        f.Show()
        'Me.Close()
    End If
End Sub 


لم أفهم دور Me.Close في DataGridView1_Click، لقد قمت بتعطيله مؤقتا إلى أن تنظر في أمره

Me.Close فايدتها ان البحث فى فورم منفصل ويتم ترحيلة لفورم LAB_ADD بمجرد الاختيار

[asemshahen5]

هذا مثال :

   

[eslame elgohary]

(10-08-19, 02:44 PM)asemshahen5 كتب : هذا مثال :

اشكرك على تعبك ولكن البحث فى نموذج منفصل

[asemshahen5]

استخدم متغيير من نوع سترنغ او انتجر حسب احتياجك و عرفه في مديول و عبئه من فورم و استخدمه في حدث اللود فورم .

[Beginer]

إذا كان LAB_CODE رقم فقم بحذف العلامة ' من الاستعلام
ايضا إذا كان البحث سيعود بسطر واحد دائما فاجعل SHOW_ تساوي 0
احذف Try من كود البحث أو ضع كود إظهار رسالة داخل Catch لتعرف هل هناك خطا او وجود مشكلة في كود البحث هكذا

PHP كود :

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 = 0
            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
        MsgBox(ex.Message)
    End Try
End Sub 


[eslame elgohary]

(10-08-19, 04:15 PM)Beginer كتب : إذا كان LAB_CODE رقم فقم بحذف العلامة ' من الاستعلام
ايضا إذا كان البحث سيعود بسطر واحد دائما فاجعل SHOW_ تساوي 0
احذف Try من كود البحث أو ضع كود إظهار رسالة داخل Catch لتعرف هل هناك خطا او وجود مشكلة في كود البحث هكذا

PHP كود :

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 = 0
            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
        MsgBox(ex.Message)
    End Try
End Sub 


LAB_CODE = BORG_CODE

[eslame elgohary]

؟؟؟؟؟؟؟؟؟؟؟؟

[اسامه الهرماوي]

السلام عليكم...
قم بتحميل الملف من المرفقات وستجد ضالتك.