shafie-rayaneh
شنبه 14 شهریور 1394, 11:00 صبح
سلام خسته نباشید
من سه تا تیبل دارم به نامهای TBLMoshtari و TBLShfaktor و TBLFaktor که این سه تا رو با RelationShip به هم وصل کردم و در برنامه VB6 توی adodc و دیتا گرید ها هر سه رو نشون میده و مشکلی ندارم تیبل مشتری اصلیه و زیرمجموعه اون تیبل شماره فاکتور میشه بعدشم که تیبل فاکتور ریز کالاها رو نشون میده
حالا یک button گذاشتم کنار دیتاگرید TBLShFaltor و میخوام فاکتور فروش برای یک مشتری رو پرینت بگیرم نحوه اتصال من به این صورت است
PRT = Adodc2.Recordset.Fields("Factor_ID")
Form12.Show vbModal
و در داخل فرمی که گزارش کریستال ریپورت رو گذاشتم اینو نوشتم
Private Sub Command1_Click()
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim CrDBTable As CRAXDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\Report2.Rpt")
crRept.RecordSelectionFormula = Return_Formula
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
CrystalActiveXReportViewer1.Refresh
End Sub
و فرمولم هم به این شکله
Private Function Return_Formula() As String
Dim Str_Formula As String
Str_Formula = Str_Formula & " {TBLShFaktor.Factor_ID}= RPT"
Str_Formula = Trim(Str_Formula)
End Function
میدونم که صد در صد مشکل داره چون اجرا نمیشه پس اگه میشه راهنماییم کنید و بگید که کجا رو درست کنم که وقتی روی دیتا گرید و روی فاکتور مورد نظر کلیک میکنم و روی button میزنم ریز اون فاکتور یعنی فاکتور فروش رو به من نشون بده مرسی
گزارش رو توی کریستال ریپورت درست کردم و با آی دی مشتری و آی دی شماره فاکتور گروپ کردم توی خود کریستال مشکلی نداره.
با تشکر فراوان
من سه تا تیبل دارم به نامهای TBLMoshtari و TBLShfaktor و TBLFaktor که این سه تا رو با RelationShip به هم وصل کردم و در برنامه VB6 توی adodc و دیتا گرید ها هر سه رو نشون میده و مشکلی ندارم تیبل مشتری اصلیه و زیرمجموعه اون تیبل شماره فاکتور میشه بعدشم که تیبل فاکتور ریز کالاها رو نشون میده
حالا یک button گذاشتم کنار دیتاگرید TBLShFaltor و میخوام فاکتور فروش برای یک مشتری رو پرینت بگیرم نحوه اتصال من به این صورت است
PRT = Adodc2.Recordset.Fields("Factor_ID")
Form12.Show vbModal
و در داخل فرمی که گزارش کریستال ریپورت رو گذاشتم اینو نوشتم
Private Sub Command1_Click()
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim CrDBTable As CRAXDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\Report2.Rpt")
crRept.RecordSelectionFormula = Return_Formula
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
CrystalActiveXReportViewer1.Refresh
End Sub
و فرمولم هم به این شکله
Private Function Return_Formula() As String
Dim Str_Formula As String
Str_Formula = Str_Formula & " {TBLShFaktor.Factor_ID}= RPT"
Str_Formula = Trim(Str_Formula)
End Function
میدونم که صد در صد مشکل داره چون اجرا نمیشه پس اگه میشه راهنماییم کنید و بگید که کجا رو درست کنم که وقتی روی دیتا گرید و روی فاکتور مورد نظر کلیک میکنم و روی button میزنم ریز اون فاکتور یعنی فاکتور فروش رو به من نشون بده مرسی
گزارش رو توی کریستال ریپورت درست کردم و با آی دی مشتری و آی دی شماره فاکتور گروپ کردم توی خود کریستال مشکلی نداره.
با تشکر فراوان