عمل تقرير فترة بين تاريخين

هل من مجيب يا أخوانى الموضوع عاجل جدً

ارجو المساعده السريعة

السلام عليكم :

موضوعك سهل وبسيط جداً

الرجاء نسخ المجلد المرفق في القرص c ثم عدله كما تشاء

Data1.RecordSource = "select * from tp1 where name= " & "'" & Text3.Text & "'" & " and date between " & "#" & Text1.Text & "#" & "and" & "#" & Text2.Text & "#"
DataEnvironment1.Commands(1).CommandText = "select * from tp1 where name= " & "'" & Text3.Text & "'" & " and date between " & "#" & Text1.Text & "#" & "and" & "#" & Text2.Text & "#"
DataReport1.Show

test.rar

السلام عليكم

طيب انا عامل التقرير بين تاريخين لكن على كريستال4,6 و vb6

اريد ان يظهر التاريخين على التقرير

من قاءمة انسيرت اخترت فرميولافيلد وسمينها date1 -ok وبعدين اكسيت

وحطبتها عالفورم وكدة الناريخ الثاني

وكتبت الكود التالي

cn.Execute "drop view itmsaldt"

cn.Execute "create view itmsaldt as select ITM_ID,TIN_QU,TIN_EX from TIN where ITM_ID =" & Combo12.Text & " and TIN_DTE between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"

CrystalReport1.Formulas(date1) = " & DTPicker1.Value & "

CrystalReport1.Formulas(date2) = " & DTPicker2.Value & "

CrystalReport1.DataFiles(0) = App.Path & "\workad.mdb"

CrystalReport1.ReportFileName = App.Path & "\rep\itmsaldt.rpt"

CrystalReport1.Action = 1

ولكن عند عرض التقرير لا تظهر حقول الفرميولا