شروع به کار با کریستال ریپورت

سلام
برای Join به صورت عادی میتوانید در SQL-Select همچین کدی بنویسید:

کد:

---

SELECT
  DT1.*, DT2.*
FROM
  [Table1] AS DT1
INNER JOIN
  [Table2] AS DT2
ON
  DT1.Filed = DT2.Field
WHERE
  ...

---

=====

احتمال دارد مسئله شما با یک جدول واحد در Dataset و یک دستور SQL-SELECT-JOIN حل شود که اینطوری معمولاً ساده تر خواهد بود.
ولی امکان داشتن چند جدول در خود Dataset هم وجود دارد تا گزارش ساز خودش اطلاعات درست را واکشی کند.

سلام

من به كدي كه در اين لينك گذاشتيد نياز دارم

لینک دانلود:
mediafire.com/?mjghfdznijm
اما ميگه كه حذف شده اگه امكان داره دوباره upload كنيد
با تشكر

سلام

نقل قول:

---

اما ميگه كه حذف شده اگه امكان داره دوباره upload كنيد

---

متاسفانه بعید میدانم این مورد را داشته باشم و بتوانم مجدد آپلود کنم.
دقیقاً مشکل شما (که با این سمپل حل میشده) در چه ضمینه ای است؟

سلام

من برنامه ای به زبان vb.net 2008 نوشته ام که در آن، به منظور گزارش گیری از بانک sql ،از برنامه ی crystal report استفاده کرده و این برنامه در سیستم خودم جواب می دهد....

زمانی که برنامه را به سیستم دیگری انتقال می دهم قسمت گزارش گیری آن به بانک متصل نمی شود، زیرا کانکشن استرینگ آن برای سیستم قبلی تعریف شده و از طرفی در فایل app.config این کانکشن را تغییر داده ام، تمامی مراحل برنامه در سیستم مقصد اجرا می شود به جز گزارش گیری ...

عاجزانه مرا کمک کنید. با سپاس!

این هم کد اتصال به گزارش:
(این گزارش از رویه ذخیره شده در sql گزارش گرفته و دارای پارامترهای ورودی نیز است.)

کد:

---

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim param1Fileds AsNew CrystalDecisions.Shared.ParameterFields
Dim param1Field AsNew CrystalDecisions.Shared.ParameterField
Dim param1Field1 AsNew CrystalDecisions.Shared.ParameterField
Dim param1Field2 AsNew CrystalDecisions.Shared.ParameterField
Dim param1Range AsNew CrystalDecisions.Shared.ParameterDiscreteValue
Dim param1Range1 AsNew CrystalDecisions.Shared.ParameterDiscreteValue
Dim param1Range2 AsNew CrystalDecisions.Shared.ParameterDiscreteValue
param1Field.ParameterFieldName = "date1"' Parameter Name In Crystal Report
param1Field1.ParameterFieldName = "date2"
param1Field2.ParameterFieldName = "insKnd"
param1Range.Value = TextBox1.Text ' value For Parameter Field
param1Range1.Value = TextBox2.Text
param1Range2.Value = TextBox3.Text
param1Field.CurrentValues.Add(param1Range)
param1Field1.CurrentValues.Add(param1Range1)
param1Field2.CurrentValues.Add(param1Range2)
param1Fileds.Add(param1Field) ' To add parameter in parameterslist
param1Fileds.Add(param1Field1)
param1Fileds.Add(param1Field2)
Form15.CrystalReportViewer1.ParameterFieldInfo = param1Fileds 'to pass parameter
Form15.Show()
Form15.CrystalReportViewer1.Refresh()
Form15.CrystalReportViewer1.Visible = True
EndSub


---

کد:

---

Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim crs As New CrystalReport1
CrystalReportViewer1.ReportSource = crs
End Sub
 

---