كيفية عمل فلترة في التقرير كريستال ريبورت

السلام عليكم

ياريت ترسل المثال افضل ونحاول نعدل فيه

مرفص صور للتوضيح

مرفق قاعدة البيانات وبعدين سوف ارفق البرنامج

الاخ الفاضل ارجو من سيادتكم التعديل علي المثال مرفق الصور التوضيحية المطلوب التعديل علية ومرفق قاعدة البيانات ومرفق البرنامج المراد التعديل علية الرجو من سيادتكم التعديل علية بقالي شهر وانا حيران مش عارف اصل لحل وربنا يجعة في ميزان حسناتكم

وبالنسبة للتاتا جريد كيفية ادخل بيانات فية ولما تضغط حفظ تحفظ

قاعدة البيانات.rar

الصيانة.rar

برجاء متابعة الرابط

/index.php?showtopic=214202

السلام عليكم

لم اتمكن من فتح المنظومة وذلك لعدم توافق إصدار الفيجول مع الفيجول المحملة على جهازي ولكن اطلعت على الكود وجرب الطرق التالية :

اولا :عند استخدامك جمله SQL استخدم معها جملة الترتيب ORDER BY مثلا

SQLstr = "SELECT * FROM Table1 WHERE ID ='" & TextBox10.Text & "' Order by ID"

أي على حسب الحقل المراد البحث عنه

ثانيا : الترتيب من بيئة الكريستال ريبورت

اذهب الى الخيار Report > Record Sort Expert

ثم من الخانه Available Fields حدد الحقل المراد الترتيب به وانقله الى خانه Sort Fields

عبدالجليل العقوري كتب:

السلام عليكم

لم اتمكن من فتح المنظومة وذلك لعدم توافق إصدار الفيجول مع الفيجول المحملة على جهازي ولكن اطلعت على الكود وجرب الطرق التالية :

اولا :عند استخدامك جمله SQL استخدم معها جملة الترتيب ORDER BY مثلا

SQLstr = "SELECT * FROM Table1 WHERE ID ='" & TextBox10.Text & "' Order by ID"

 

أي على حسب الحقل المراد البحث عنه

ثانيا : الترتيب من بيئة الكريستال ريبورت

اذهب الى الخيار Report > Record Sort Expert

ثم من الخانه Available Fields حدد الحقل المراد الترتيب به وانقله الى خانه Sort Fields

مشكور اخي الفاضل علي ردك علية للاسف مامشي الحال

ولا بيعطي اي شي

محمد فؤاد تركي كتب:

برجاء متابعة الرابط

/index.php?showtopic=214202

الاخ الفاضل

ياريت ان مرفق مثال ياريت تعدل علي المثال ولكم جزيل الشكر بقالي شهر ومش عارف اصل لحل

محمد فؤاد تركي كتب:

برجاء متابعة الرابط

/index.php?showtopic=214202

الاستاذ محمد ارجو من سيادتك التعديل علي المثال المرفق ولك جزيل الشكر

في زر عرض التقرير اكتب هذا الكود

Dim cryRpt As New ReportDocument

cryRpt.Load(Application.StartupPath & "\CrystalReport3.rpt")

cryRpt.RecordSelectionFormula = "{Table1.id}='" & TextBox10.Text & "'"

CrystalReportViewer1.ReportSource = cryRpt

CrystalReportViewer1.Refresh()

قد تحتجاج هذا الرابط

مسار قاعدة البيانات

الرابط الخاص بي

الرابط الخاص بي2

KARIMSOFT كتب:

في زر عرض التقرير اكتب هذا الكود

Dim cryRpt As New ReportDocument

cryRpt.Load(Application.StartupPath & "\CrystalReport3.rpt")

cryRpt.RecordSelectionFormula = "{Table1.id}='" & TextBox10.Text & "'"

CrystalReportViewer1.ReportSource = cryRpt

CrystalReportViewer1.Refresh()

قد تحتجاج هذا الرابط

مسار قاعدة البيانات

الرابط الخاص بي

الرابط الخاص بي2

مشكور اخي الفاضل تستاهل مليون الف شكر مش عارف اقولك اية احي العزيز

اخي العزيز ممكن سوال اخر بخصوص البحث

لو عايز اعمل بحث بين تاريخين

وعايز اعرض البيانات مثل

الايرادات التي دخلت خلال فترة معينة او ايرادات موظف معين كيف يتم ذلك وتكون في صفحة خاصة بية وهتكون علي نفس المثال

لا شكر علي واجب

Conn.Open()' remove this line

DataSet1.Clear()

SQLstr= "SELECT * FROM Table1 where id='" & TextBox10.Text & "'"

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

DataAdapter1.Fill(DataSet1, "Table1")

Conn.Close()' remove this line

كود البحث بيت تارخين شبه هذا الاختلاف في جملة السكول

KARIMSOFT كتب:

لا شكر علي واجب

Conn.Open()' remove this line

DataSet1.Clear()

SQLstr= "SELECT * FROM Table1 where id='" & TextBox10.Text & "'"

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

DataAdapter1.Fill(DataSet1, "Table1")

Conn.Close()' remove this line

كود البحث بيت تارخين شبه هذا الاختلاف في جملة السكول

لو مثال بيكون رابط ADO لك الشكر نفس المثال المرفق

بحيث لو عايز اعرض بيانانات في التاتا جريد كيف يتم ذلك علي نفس المثال المرفق

بيحيث يكون عندي اثنيت تاكست بوكس ادخل فيهم التاريخ واضغط علي زر عرض يعرض التالي

اسم العميل نوع الجهاز الايرادات وهكذا

KARIMSOFT كتب:

لا شكر علي واجب

Conn.Open()' remove this line

DataSet1.Clear()

SQLstr= "SELECT * FROM Table1 where id='" & TextBox10.Text & "'"

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

DataAdapter1.Fill(DataSet1, "Table1")

Conn.Close()' remove this line

كود البحث بيت تارخين شبه هذا الاختلاف في جملة السكول

البحث بين تارخين

Conn.Open()' remove this line

DataSet1.Clear()

SQLstr= "SELECT * FROM Table1 where dateField>='" & val1.Text & "' and dateField<='" & val2.Text & "'"

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

DataAdapter1.Fill(DataSet1, "Table1")

Conn.Close()' remove this line