PDA

View Full Version : تکرار چهار باره هر رکود در گزارش



shabnam.nima
شنبه 19 اردیبهشت 1388, 15:13 عصر
من با استفاده از قطعه برنامه زیر گزارشها رو فراخوانی می کنم اما در هر گزارش هر رکورد 4 بار تکرار می شود.در صورتی که در جدول Data Base رکوردهای مربوطه فقط یکبار با متغیرهای صدا زده وجود دارد.:ناراحت:





Dim data As clsMain
Set data = New clsMain
Set data.Connection = Cnn
Dim a As String
Dim b As String
Dim c As String
a = (Form6.cmbcity.List(Form6.cmbcity.ListIndex))
b = (Form6.cmbseason.List(Form6.cmbseason.ListIndex))
c = (Form6.Cmbyear.List(Form6.Cmbyear.ListIndex))
If data.Exec(False, "sp_scoringmerchant_edited", a, c, b) = True Then
MsgBox عملیات با موفق انجام شد" ", vbInformation + vbOKOnly
If cmbseason.ListIndex <> -1 And Cmbyear.ListIndex <> -1 Then
If cmbcity.ListIndex <> -1 Then
Set oApp = New CRAXDDRT.Application
Set oRep = oApp.OpenReport(App.Path & "\Reports\Report4.rpt")
Call SetReportConnection(oRep)
Call oRep.ParameterFields.GetItemByName("@inseason").AddCurrentValue(cmbseason.List(cmbseason.ListInd ex))
Call oRep.ParameterFields.GetItemByName("@city").AddCurrentValue(cmbcity.List(cmbcity.ListIndex))
Call oRep.ParameterFields.GetItemByName("@sal").AddCurrentValue(CLng(Cmbyear.List(Cmbyear.ListIn dex)))

Call ShowReport(oRep, vbModal, True)

Else
Set oApp = New CRAXDDRT.Application
Set oRep = oApp.OpenReport(App.Path & "\Reports\Report3.rpt")
Call SetReportConnection(oRep)
Call oRep.ParameterFields.GetItemByName("@inseason").AddCurrentValue(cmbseason.List(cmbseason.ListInd ex))
Call oRep.ParameterFields.GetItemByName("@sal").AddCurrentValue(CLng(Cmbyear.List(Cmbyear.ListIn dex)))
Call oRep.ParameterFields.GetItemByName("@city").AddCurrentValue("")
Call ShowReport(oRep, vbModal, True)

End If
Else
MsgBox "لطفاً مقادیر خود را وارد نمایید .", vbExclamation, ""
End If
End If

vbhamed
یک شنبه 20 اردیبهشت 1388, 01:09 صبح
سلام
فايل گزارش و بانكتون رو بزاريد