PDA

View Full Version : استفاده از runing total field و formula



maisam57
یک شنبه 06 مرداد 1387, 08:50 صبح
سلام
جستجو كردم مطلبي در اين رابطه پيدا نشد
چطوري ميتونم كوري زير رو توي كريستال 8 استفاده كنم


select
sum(_number)
from
sa
where _date > '1387/01/01'
AND
_name LIKE 'PJ%'

amirzazadeh
یک شنبه 06 مرداد 1387, 12:00 عصر
راه اسونتر اينه كه نتيجه كوئري رو توي جدول موقت (temp) بريزي وبعد اون رو به عنوان منبع گزارشت توي ريپورت لود كني.
ولي اگر اصرار داري از روش اول استفاده كني بايد توي كريستال پارامتر درست كني يكي براي تاريخ و يكي هم براي اسم بعد با set parameter اونها رو به كريستال پاس بدي.
از اين كد هم ميتوني كمك بگيري

Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\am\Desktop\db11.mdb")
Dim dap As New OleDbDataAdapter("SELECT * FROM Table1 ", con)
Dim dst As New DataSet
Dim opr As New CrystalReport1
con.Open()
dap.Fill(dst, "table1")
con.Close()
opr.SetDataSource(dst)
opr.SetParameterValue("shomare-faktor", Shomare_faktorTextBox.Text)
Form2.CrystalReportViewer1.ReportSource = opr
Form2.Show()