کریستال ریپورت در ویژوال بیسیک

[Rayanehfarda]

براي ارتباط برنامه با كريستال ريپورت 2 روش وجود دارد
اول آنتست كه در نوار منو Project و add Crystal Reports را زده و يا فايل جديد بسازيد يا فايل قبلي كريستال را open كنيد
دوم در يك فرم يك CRViewer1 قرار دهيد و در فرم لود بنويسيد

کد:

Dim Masir As String
Masir = App.Path + "\Crystal Reports\Tahod Nameh.rpt"
Set m_Report = m_Application.OpenReport(Masir, 1)
m_Report.RecordSelectionFormula = "{LC.N8No}='" + Lc.N8No.Text + "'"
m_Report.FormulaFields(1).Text = "'" & Main.Tarikh & "'"
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport

m_Report.RecordSelectionFormula
براي آنستك كه وقتي شما ميخواهيد ركوردهاي خاصي در گزارش شما باشد
بقول معروف فيلتر ميخواهيد بكنيد

وقتي شما در فايل كريستال ريپورت يك فيلد فرمول باز ميكنيد ميتوانيد از برنامه مقدار دهي كنيد
مثل كد زير
m_Report.FormulaFields(1).Text = "'" & Main.Tarikh & "'"

لطفا نظر بدهيد

[modaresi44]

آقا یا خانم رایانه فردا
از راهنماییتان متشکر. من هم در ارتباط دادن کریستال ریپورت با ویژوآل بیسیک مشکل دارم. روشی را که گفتید بکار بردم ولی خطای زیر را می دهد:
( Server has not yet been opened )
لطفا راهنمایی کنید.

[Rayanehfarda]

من برنامه اي براي دفتر تلفن نوشتم و از فايل كريستال ريپورت استفاده كردم براي شما ميذارم لطفا به كدها دقت كنيد
از اين نمونه براي برنامه خود الگو بگيريد
اگر سوالي داشتيد بپرسيد

[modaresi44]

خیلی ممنون از پاسخ شما . ولی متاسفانه من کدی دریافت نکردم.

[Rayanehfarda]

لطفا به من توضيح بدهيد چطور ميتوانم برايتان فايلهايي با حجم بالا مثلا 5 مگابايت بفرستم


[attachment=370]

[modaresi44]

اگر امکان دارد همان خطهای مورد نظر را در اینجا copy و paste کنید
در غیر اینصورت میتوانید سورس برنامه را zip کرده و بعد mail کنید.

[Rayanehfarda]

اگر كسي اطلاعاتي در مورد اتصال كريستال ريپورت به بانك برنامه اي ميخواهد ايميل خود را برايم بفرستيد تا برنامه را برايتان بفرستم
JALALNT@YAHOO.COM