Const strQuery As String = _
"SELECT " & _
"tbl_quotations.date_added, " & _
"tbl_quotations.subtotal, " & _
"tbl_quotations.tax_1, " & _
"tbl_quotations.tax_2, " & _
"tbl_quotations.discount, " & _
"tbl_quotations.freight, " & _
"tbl_quotations.total, " & _
"tbl_quotations.memo, " & _
"tbl_quotation_item.quantity, " & _
"tbl_quotation_item.unit_price, " & _
"tbl_quotation_item.net_price, " & _
"tbl_items.common_name_fr, " & _
"tbl_items.common_name_en, " & _
"tbl_price.sku, " & _
"tbl_price.format_fr, " & _
"tbl_price.format_en, " & _
"tbl_family.family_fr, " & _
"tbl_family.family_en " & _
"FROM tbl_quotations " & _
"INNER JOIN tbl_quotation_item ON tbl_quotations.id_quotation = tbl_quotation_item.id_quotation " & _
"INNER JOIN tbl_items ON tbl_quotation_item.id_item = tbl_items.id_item " & _
"INNER JOIN tbl_price ON tbl_quotation_item.id_price = tbl_price.id_price " & _
"INNER JOIN tbl_family ON tbl_items.id_family = tbl_family.id_family " & _
"WHERE(tbl_quotations.id_quotation = @id_quotation)"
Dim cnn As SqlConnection
Dim dad As SqlDataAdapter
Dim dst As DataSet = New dstQuotationPrint
Dim cmm As SqlCommand
Dim rpt As New crQuotation
Try
cnn = New SqlConnection(STR_SQL_CONNECTION_STRING)
cmm = New SqlCommand(strQuery, cnn)
dad = New SqlDataAdapter(strQuery, cnn)
dad.SelectCommand = cmm
cmm.Parameters.Add("@id_quotation", SqlDbType.Int, 4, "id_quotation")
dad.SelectCommand.Parameters("@id_quotation").Value = intNextQuotationID
dad.Fill(dst, "tbl_quotation")
rpt.SetDataSource(dst)
list.reportList.ReportSource = rpt
list.Show()
list.MdiParent = mainPage
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
End Try