Καλημέρα,
είχα κάνει post για παρόμοιο θέμα αλλα δεν το βρίσκω γι'αυτό συγνώμη για το μπέρδεμα.
Λοιπόν επειδή αυτόματα το γέμισμα των reports δεν με βολεύει(θέλω να προβάλω κάποια στοιχεία ανάλογα με την επιλογή του χρήστη, δηλαδή ο χρήστης να επιλέγει τον μήνα και να εμφανίζωνται όλα τα έξοδα του) προσπάθησα γεμίζωντας ένα dataset με τα στοιχεία απο την βάση που θέλω και να κάνω dataset.writexmldefinition kai dataset.writexml.μετά πήγαινα απο το report atabase fields/database expert το φόρτωνα αλλα ενώ εχει δεδομένα το αρχείοπ xml δεν τα προβάλει ή να πώ καλύτερα όχι πάντα(τις περισσότερες φορες)
κάπως έτσι γίνετε
ry
myConnection =
New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Environment.CurrentDirectory.ToString & "\Zafferano.mdb;")
MyCommand.Connection = myConnection
MyCommand.CommandText =
"SELECT KinisiEsoda.KinisiEsodaID, KinisiEsoda.Date, KinisiEsoda.Tupos, KinisiEsoda.Poso, KinisiEsoda.Loipa, Esoda.EsodaDescr FROM Esoda INNER JOIN KinisiEsoda ON Esoda.EsodaID = KinisiEsoda.Tupos WHERE (((KinisiEsoda.Date)>=#" & apo & "# And (KinisiEsoda.Date)<=#" & eos & "#))"
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand
myDA.Fill(myDS,
"EsodaMonth")
myDS.WriteXmlSchema(Application.StartupPath &
"\ReportXML\MonthEsodaReportScema.xsd")
myDS.WriteXml(Application.StartupPath &
"\ReportXML\MonthEsodaReport.xml")
rpt.SetDataSource(myDS)
ViewReportFOrm.CrystalReportViewer1.ReportSource = rpt
ViewReportFOrm.Show()
Catch Excep As Exception
MessageBox.Show(Excep.Message,
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
ευχαριστώ εκ των προτέρων...