حرفه ای: ادغام دو جدول در گزارش گیری

Con.Open()
Dim DTCompany As New DataTable()
Da.Fill(DTCompany)
Con.Close()

Da = New SqlDataAdapter("SearchGhestSell", Con)
Da.SelectCommand.CommandType = CommandType.StoredProcedure
Da.SelectCommand.Parameters.AddWithValue("@Code_Me li", TxtSerche.Text)
Dim FactGhest As New DataTable
Da.Fill(FactGhest)

Dim Ds As New DataSet()

Ds.Merge(DTCompany)
Ds.Tables(0).TableName = "DTCompany"
Ds.Merge(FactGhest)
Ds.Tables(1).TableName = "FactGhest"

FactGhestha.Load(Application.StartupPath & "ReportReportFactGhestha.mrt")
FactGhestha.RegData(Ds)
FactGhestha.Render()
FactGhestha.Show()

End Sub