maryamb
چهارشنبه 22 خرداد 1387, 15:06 عصر
با سلام من با کد که داخل اکتیوریپورت نوشته می شه میخوام دو جدولم رو به هم ربط بدم برای پرینت ، اما نمی دونم ایرادش کجاست ؟
Private Sub ActiveReport_ReportStart()
s = frmbandelkharid.t(3).Text
With dc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1832823"
.Source = "select list.id , shomare,bandel,zekhamat from list and kharid where list.id= kharid.id2 and list.id= '" & s & "' "
.Refresh
End With
Field1.DataField = "id"
Field2.DataField = "bandel"
Field3.DataField = "zekhamat"
Field4.DataField = "shomare"
End Sub
که در اینجا فیلد های id , shomare مربوط به جدول list و bandel , zekhamat , id2 مربوط به جدول kharid می باشد.
البته به جای and که اون بالا رنگیه کاما هم گذاشتم ولی بازم اررور داد
Private Sub ActiveReport_ReportStart()
s = frmbandelkharid.t(3).Text
With dc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1832823"
.Source = "select list.id , shomare,bandel,zekhamat from list and kharid where list.id= kharid.id2 and list.id= '" & s & "' "
.Refresh
End With
Field1.DataField = "id"
Field2.DataField = "bandel"
Field3.DataField = "zekhamat"
Field4.DataField = "shomare"
End Sub
که در اینجا فیلد های id , shomare مربوط به جدول list و bandel , zekhamat , id2 مربوط به جدول kharid می باشد.
البته به جای and که اون بالا رنگیه کاما هم گذاشتم ولی بازم اررور داد