Discussion :

[roi2010]

bonjour

je suis entrain de developper une application et j'utilise crystal report v10 pour afficher des rapports mais j'ai rencontré un probeme au niveau declaration de crystal

lorsque j' utilise la déclaration ci dessous vb se bloque et s'arrete
si je le laisse il m'affiche objet requis

declaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Report As New CRAXDRT.Report
Dim rptRepApp As New CRAXDRT.Application

voila la code mon forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Form_Load()
On Error GoTo Err_DO
 
Set RepRS = New Recordset
RepRS.Open "SELECT INV.INV_NO,INV.INV_DATE,INV.CUST_NAME,INV_ITEM.Store_no,INV_ITEM.Prodect_no,INV_ITEM.Prodect,INV_ITEM.Qty,INV_ITEM.Unit_Price,INV_ITEM.Qty_Price,INV.TOT_PRICE,INV.TOT_DISCOUNT,INV.TOT_NET_PRICE,INV.Remarks,INV.Salesman,INV_ITEM.INV_ITEM From INV INNER JOIN INV_ITEM ON INV.INV_NO = INV_ITEM.INV_item Where str(INV.INV_NO)='" & str(T_Inv_No) & "' ORDER By INV.INV_NO ASC", CNN, adOpenDynamic, adLockPessimistic
 
' sndPlaySound App.Path & "\datalink.wav", 1
Screen.MousePointer = vbHourglass
 
Report.Text1.SetText OwnerArr(0)
Report.Text2.SetText "Tel: " & OwnerArr(1) & " - " & OwnerArr(2)
Report.Text3.SetText "Fax: " & OwnerArr(3)
Report.Text4.SetText "P.O.Box: " & OwnerArr(4)
Report.Text9.SetText Trim(OwnerArr(5)) & " " & Trim(OwnerArr(6))
Report.Text25.SetText "Email: " & OwnerArr(7)
 
Report.Text5.SetText OwnerArr(8)
Report.Text6.SetText "ÊáÝæä:" & OwnerArr(9) & " - " & OwnerArr(10)
Report.Text7.SetText "ÝÇßÓ:" & OwnerArr(11)
Report.Text8.SetText "Õ.È:" & OwnerArr(12)
Report.Text26.SetText Trim(OwnerArr(13)) & " " & Trim(OwnerArr(14))
Report.Text36.SetText PRICE_TEXT
Report.Text27.SetText REPMSG
 
Report.Database.SetDataSource RepRS, 3, 1
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Set Report = Nothing
Exit Sub
 
Err_DO:
MsgBox Err.Description
End Sub

merci infinement

[SfJ5Rpw8]

Voir les références utilisées dans ton projet : menu projet référence ... il devrait y avoir Crystal...

[roi2010]

bonjour merci pour votre reponse mais j'ai installer crystal report et j'ai reference a partir de menu projet /reference
mais le probléme reste toujours




merci infinement