اتصال چند جدول به کریستال

[toopak]

سلام
من تو کریستالم از دوتا جدول فیلد دارم
اما توی کد نویسی نمیدونم چیکارش کنم

Public Class frmacclist

   

    Private Function fncGetData() As DataSet

        Dim strconn As String = "provider=microsoft.jet.OLEDB.4.0;data source=" & Application.StartupPath & "\taxi.mdb;"

        Dim sqlConnection1 As New OleDbConnection(strConn)

        Dim strQuery As String = "Select * From tbaccounts"

        Dim sqlDataAdapter1 As New OleDbDataAdapter(strQuery, sqlConnection1)

        Dim dstData As New taxiDataSet

        sqlDataAdapter1.Fill(dstData, "tbaccounts")

        Return dstData

    End Function



    Private Sub frmacclist_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim strReportPath As String = GetCurrentDirectory()

        If strReportPath.Substring(strReportPath.Length - 9) = "bin\Debug" Then

            strReportPath = strReportPath.Substring(0, strReportPath.Length - 10)

        End If

        strReportPath &= "\rpacclist.rpt"

        Dim rptEmployee As New CrystalDecisions.CrystalReports.Engine.ReportDocum  ent

        rptEmployee.Load(strReportPath)

        Dim dstData As DataSet = fncGetData()

        rptEmployee.SetDataSource(dstData)

        CrystalReportViewer1.ReportSource = rptEmployee



    End Sub

End Class

الان فقط جدول tbaccounts وصله اما میخوام جدول setting رو هم وصل کنم
چارش چیه؟

[ali_md110]

Dim dstData As New taxiDataSet

Dim strQuery As String = "Select * From tbaccounts"

 Dim strQuerysetting As String = "Select * From setting"

Dim sqlDataAdapter1 As  OleDbDataAdapter

sqlDataAdapter1 =new OleDbDataAdapter(strQuery, sqlConnection1)

sqlDataAdapter1.Fill(dstData, "tbaccounts")

sqlDataAdapter1 =new OleDbDataAdapter(strQuerysetting, sqlConnection1)

sqlDataAdapter1.Fill(dstData, "setting

اگر حداول دارای رابطه هستند نیازی به پرکردن دوباره دیتاست نیست ولی اگر جداول هیچ رابطه ندارند باید هردو را بریزی توی دیتاست