السلام عليكم ورحمة الله وبركاته
متأسف جدا على التأخر في الرد لظرف صحي وشاكرا لك تفاعلك
في الفورم 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
