نمایش نتایج 1 تا 2 از 2

نام تاپیک: ادغام دو جدول در گزارش گیری

  1. #1

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

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

    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

  2. #2

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

    نقل قول نوشته شده توسط 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
    سلام دوستان کد نویسی درسته مشکل در خود دیتا ست بود که حل شد با تشکر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •