04-05-17, 01:44 AM
السلام عليكم ورحمه الله وبركاته
ارجو الحل
الداتا جريد ما بتعرض محتويات الريبورت
والريبورت ما بعمل فلتر بين تاريخين
[attachment=14133]
ارجو الحل
الداتا جريد ما بتعرض محتويات الريبورت
والريبورت ما بعمل فلتر بين تاريخين
[attachment=14133]
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim rep As New count
rep.SetDataSource(dt)
Dim q As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1)")
rep.SetParameterValue("m1", q)
Dim w As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1)")
rep.SetParameterValue("g1", w)
Dim t As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 1 AND 4)")
rep.SetParameterValue("m2", t)
Dim r As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 1 AND 4)")
rep.SetParameterValue("g2", r)
Dim u As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 5 AND 9)")
rep.SetParameterValue("m3", u)
Dim n As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 5 AND 9)")
rep.SetParameterValue("g3", n)
Dim i As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 10 AND 14)")
rep.SetParameterValue("m4", i)
Dim a As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 10 AND 14)")
rep.SetParameterValue("g4", a)
Dim s As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 15 AND 19)")
rep.SetParameterValue("m5", s)
Dim d As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 15 AND 19)")
rep.SetParameterValue("g5", d)
Dim b As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] >20)")
rep.SetParameterValue("m6", b)
Dim f As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] >20)")
rep.SetParameterValue("g6", f)
Dim z As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='كلب') ")
rep.SetParameterValue("dog", z)
Dim x As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='جرذ') ")
rep.SetParameterValue("rat", x)
Dim c As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='حمار')")
rep.SetParameterValue("donky", c)
Dim m As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='ماعز')")
rep.SetParameterValue("goat", m)
Dim y As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='قط')")
rep.SetParameterValue("cat", y)
Dim ee As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='اخرى') ")
rep.SetParameterValue("ather", ee)
Dim eqe As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([state] ='معروف') ")
rep.SetParameterValue("know", eqe)
Dim yw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الراس') ")
rep.SetParameterValue("head", yw)
Dim yew As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الجذع') ")
rep.SetParameterValue("j", yew)
Dim yuw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='ساق') ")
rep.SetParameterValue("leg", yuw)
Dim yyw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='القدم') ")
rep.SetParameterValue("foot", yyw)
Dim ysw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اليد') ")
rep.SetParameterValue("hand", ysw)
Dim ynw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اصبع اليد') ")
rep.SetParameterValue("finger", ynw)
rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)
CrystalReportViewer1.ReportSource = rep
CrystalReportViewer1.Refresh()
End Sub
