[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