Γεια σε όλους,

Έχω αναπτύξει μια Win Forms εφαρμογή γραμμένη σε VB.net (visual studio 2003) και πρόσφατα χρησιμοποίησα τα .net localization features για να την μεταφράσω στα αγγλικά. Χρησιμοποιώντας τις properties Localizable και Language κάθε φόρμας, επιλέγω στην αρχή της εφαρμογής μου το Thread.CultureUI και όλες οι φόρμες που ακολουθούν χρησιμοποιούν το αντίστοιχο resx με αποτέλεσμα να επιλέγεται αυτόματα η κατάλληλη έκδοση της φόρμας (ελληνική ή αγγλική). Η εφαρμογή περιέχει και Crystal Reports τα οποία επίσης θα ήθελα να μεταφράσω με τον ίδιο τρόπο. Εντούτοις, δεν υπάρχουν Localizable και Language properties για τα crystal reports , δεν μπόρεσα να φτιάξω κάποιο resource file και δεν βρήκα κάτι ανάλογο. Γνωρίζεται αν υπάρχει κάποιος τρόπος να κάνω τη μετάφραση των crystal reports  όπως και αυτή των φορμών και ορίζοντας στην αρχή το CultureUI  να επιλέγεται η κάτάλληλη έκδοση της αναφοράς? Έχει συναντήσει κάποιος ανάλογο πρόβλημα?

Ευχαριστώ

Nick Cole

Αλλαγή στο runtime :

πχ

Dim MyReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim MyText As CrystalDecisions.CrystalReports.Engine.TextObject

Πάνο,

καταρχάς να σε ευχαριστήσω για την απάντησή σου.

Όμως ποιόν τρόπο θα ακολουθούσες σε περίπτωση που εξακολουθεις να θέλεις localization και το Main Report σου έχει subreports? Τα subreports φορτώνονται απ' όσο ξέρω, με την εντολή

Nick όπως το είπες ..
Το subreport δεν παύει να είναι ένα report document object.
Δεν αλλάζει τίποτα, δυναμικά στο runtime μπορείς να αλλάξεις όποιο string θέλεις στο Main ή σε όποιο subreport :

Dim MyRep as New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim MySubRep as New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim MyText as CrystalDecisions.CrystalReports.Engine.TextObject

Try

   With MyRep
      .Load('***ReportPath***')
      '****** Πιθανά να θες να : ******
      .SetDataSource(MyData.Tables(0))
      '************
      
      MySubRep = .OpenSubreport('***SubReportName***')

      '****** Πιθανά να θες να : ******
      MySubRep.SetDataSource(MyData.Tables(1))
      '************

      MyText = MySubRep.ReportDefinition.Areas("ReportHeaderArea1").Sections(0).ReportObjects("MySubReportTitle")
      MyText.Text = 'Ότι θέλω έχοντας πριν διαβάσει το currentGui Culture για να φέρω το αντίστοιχο string από το αντίστοιχο resource file'      

   End with

Catch ex as Exception
   Throw ex
End Try

Πάνο ,

Οι παρατηρήσεις σου ήταν κατατοπιστικές και βοήθησαν

Σ' ευχαριστώ πολύ!