[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
متأسف جدا على التأخر في الرد لظرف صحي وشاكرا لك تفاعلك 
في الفورم 1 يوجد داتاقريدفيو يتم من خلالها تحميل تفاصيل المخالفة ومن ضمنها مستند Pdf  بعد التحميل يتم الانتقال للفورم 2 حيث أن مهمة الفورم2 هي عرض مستند Pdf من خلال picturebox ثم تجري عمليات التعديل على بيانات المخالفة وكذلك من الممكن استبدال ملف pdf   وبعد أن تتم عمليات التعديل يتم الخروج من خلال بوتون1 ولكن عند الخروج من بوتون1 والعودة للفورم1  

المفترض أنه بعد العودة للفورم1 وأحببت أن أتأكد هل تمت عمليات كما يجب فإنني أختار السجل الذي سبق وعدلته وعرض ملف pdf  في الفورم2  أجد البيانات يتم التعديل عليها ولكن المشكلة أن الملف pdf  المفترض يظهر بعد التعديل لايظهر وكأنه لايوجد ملف pdf  مخزن في قاعدة البيانات ولكي أظهره يجب اقفال البرنامج وتشغيله مرة أخرى 


اسف للشرح الطويل 
الكود المستخدم في الفورم1  

        Try

            Dim sqlq As String = "select * from Documents_Table where Mokhalafah_Number='" + TextBox22.Text + "'"

            Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)

            Dim sqlAdapter = New SqlDataAdapter(sqlcmd)

            Dim dt As New DataTable

            Dim FS As FileStream = Nothing

            Dim dbbyte As Byte()

            dt = New DataTable()

            sqlAdapter.Fill(dt)

            Sqlcon.Close()

            If dt.Rows(0)(8).ToString = True Then

                If dt.Rows.Count > 0 Then

                    dbbyte = DirectCast(dt.Rows(0)("Mokhalafah_Pdf"), Byte())

                    My.Computer.FileSystem.CreateDirectory("C:\MohkPdfToImage")

                    Dim filepath As String = "C:\MohkPdfToImage\Mokhlafah.pdf"

                    FS = New FileStream(filepath, System.IO.FileMode.Create)

                    FS.Write(dbbyte, 0, dbbyte.Length)

                    FS.Close()

                    ' ''FS.Dispose()

                    Dim Proc As New Process()

                    Proc.StartInfo.FileName = filepath

                    Proc.Start()

                    Proc.Kill()

                    Sqlcon.Close()

                    MsgBox("    تم تحميل مستند المخالفة    ")

                    Dim f As New SautinSoft.PdfFocus

                    f.OpenPdf("C:\MohkPdfToImage\Mokhlafah.pdf")

                    f.ImageOptions.Dpi = 300

                    f.ToMultipageTiff("C:\MohkPdfToImage\Mokhlafah.tiff")

                    MsgBox("done")

                    Dim fpath As String = "C:\MohkPdfToImage\Mokhlafah.tiff"

                    Form2.PictureBox1.Image = Image.FromFile(fpath)

                End If

            Else

                MsgBox("لم يتم إدراج مستند للمخالفة")

            End If

        Catch ex As Exception

        End Try

        Form2.TextBox9.Text = Me.TextBox9.Text

        Form2.TextBox3.Text = Me.TextBox3.Text

        Form2.TextBox4.Text = Me.TextBox2.Text

        Form2.TextBox13.Text = Me.TextBox13.Text

        Form2.ComboBox2.Text = Me.TextBox12.Text

        Form2.TextBox5.Text = Me.TextBox22.Text

        Form2.NumericUpDown1.Value = CInt(Me.TextBox15.Text)

        If CheckBox3.Checked = True Then

            Form2.CheckBox3.Checked = True

        Else

            Form2.CheckBox3.Checked = False

        End If

        Form2.ShowDialog