[طالب برمجة]

في ملف Database1DataSet عليك باضافة Query جديد لكل جدول (لإضافة Query إضغط على الجدول زر يمين ثم اختار Add ثم Query)
مع تسمية MethodName ب FillByID

Query الجدول tbl_File
SELECT * FROM tbl_File WHERE ID_TB1_pk=@idfile

Query الجدول TB_PAY
SELECT * FROM TB_PAY WHERE ID_FILE_PAY_FK=@idfile

Query الجدول TB_RECEPT
SELECT *  FROM TB_RECEPT WHERE ID_FILE_REC_FK=@idfile


كود الفورم print

PHP كود :

Public Class print

    Public ID_FILE As Integer = 0

    Private Sub print_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.tbl_File' table. You can move, or remove it, as needed.
        Me.tbl_FileTableAdapter.FillByID(Me.Database1DataSet.tbl_File, ID_FILE)
        'TODO: This line of code loads data into the 'Database1DataSet.TB_PAY' table. You can move, or remove it, as needed.
        Me.TB_PAYTableAdapter.FillByID(Me.Database1DataSet.TB_PAY, ID_FILE)
        'TODO: This line of code loads data into the 'Database1DataSet.TB_RECEPT' table. You can move, or remove it, as needed.
        Me.TB_RECEPTTableAdapter.FillByID(Me.Database1DataSet.TB_RECEPT, ID_FILE)

        Me.ReportViewer1.RefreshReport()
    End Sub

End Class 


كود زر الطباعة في الفورم Form1

PHP كود :

Private Sub ptnprinet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptnprinet.Click
    Using frm As New print
        frm.ID_FILE = Me.Tbl_FileDataGridView.CurrentRow.Cells(0).Value
        frm.ShowDialog()
    End Using
End Sub