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