ادغام دو جدول در گزارش گیری

سلام خدمت دوستان کد زیر داخل سی شارپ بخوبی کار می کند ولی برای وی بی دات نت عمل نمی کند یعنی به تنهایی از یک جدول اطلاعات را نشان می دهد ولی با دو جدول همزمان اطلاعات را نشان نمی دهد

Private Sub PrintBank()
Da = New SqlDataAdapter("select Name_Compani, Adrese_k, Logo, Tel_Sherkat from TB_MyCompani", Con)

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 & "\Report\ReportFactGhestha.mrt")
FactGhestha.RegData(Ds)
FactGhestha.Render()
FactGhestha.Show()


End Sub

نقل قول:

---

نوشته شده توسط safari_m4

سلام خدمت دوستان کد زیر داخل سی شارپ بخوبی کار می کند ولی برای وی بی دات نت عمل نمی کند یعنی به تنهایی از یک جدول اطلاعات را نشان می دهد ولی با دو جدول همزمان اطلاعات را نشان نمی دهد

Private Sub PrintBank()
Da = New SqlDataAdapter("select Name_Compani, Adrese_k, Logo, Tel_Sherkat from TB_MyCompani", Con)

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 & "\Report\ReportFactGhestha.mrt")
FactGhestha.RegData(Ds)
FactGhestha.Render()
FactGhestha.Show()


End Sub

---

سلام دوستان کد نویسی درسته مشکل در خود دیتا ست بود که حل شد با تشکر