n° 219
Novembre 2017
Ottobre 21, 2017, 12:33:05 *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  


* Messaggi recenti
Messaggi recenti
Pagine: [1]   Vai giù
  Stampa  
Autore Discussione: passaggio da winform a wpf problema date  (Letto 939 volte)
0 utenti e 1 Utente non registrato stanno visualizzando questa discussione.
Maurizio67
Newbie
*

Karma: +0/-0
Scollegato Scollegato

Messaggi: 33


Mostra profilo
« inserita:: Luglio 02, 2017, 02:17:32 »

Buon pomeriggio al forum,
premetto che son un autodidatta per quanto riguarda la programmazione con wpf,
detto questo avrei la necessità di creare un codice in una user control(wpf) che mi elenca all'interno di un datagrid il risultato espresso in data inizio, data fine e l'intervallo tra le due date espresso in anni mesi e giorni.
In un progetto winform avevo utilizzato due controlli listview uno per caricare i dati tramite query per poi memorizzarli nella seconda listview.

adesso vi posto il codice che utilizzo nella winform chiedendo una mano per poter arrivare al risultato che mi serve per la mia applicazione.

Vorrei evitare di usare controlli di appoggio quindi fare tutto da codice!
Praticamente avviene questo all'interno del database esiste solo la data di inizio, per quanto riguarda la data fine e anni mesi e giorni vengono calcolati dai due controlli listview.

Sub Lista()
        ListView1.Items.Clear()
        ListView7.Items.Clear()

        Dim custAdapter As MySqlDataAdapter = New MySqlDataAdapter( _
                            "Select servizi.IDAnagrafica,Date_Format(servizi.Dal, '%d/%m/%Y') As Dal," & _
                            "Concat(reparti.Reparto ,'    ', IfNull(servizi.Sede, '')) AS Reparto,operative.Descrizione,servizi.Valutazione,operative.Abbreviata,servizi.IDReparto,servizi.Status,servizi.PercTrascinamento" & _
                            " From operative Inner Join servizi On operative.Abbreviata = servizi.Tipo Inner Join reparti On reparti.ID = servizi.IDReparto" & _
                            " Where servizi.IDAnagrafica = '" & TextBox1.Text & "' Order By servizi.Dal", Connection)
        Dim Servizi As DataSet = New DataSet()
        custAdapter.Fill(Servizi, "Servizi")

        Dim pRow As DataRow
        For Each pRow In Servizi.Tables("Servizi").Rows

            Dim item As New ListViewItem(pRow("IDAnagrafica").ToString)
            item.SubItems.Add(pRow("Dal").ToString)
            item.SubItems.Add(pRow("Reparto").ToString)
            item.SubItems.Add(pRow("Descrizione").ToString)
            item.SubItems.Add(pRow("Valutazione").ToString)
            item.SubItems.Add(pRow("Abbreviata").ToString)
            item.SubItems.Add(pRow("IDReparto").ToString)
            item.SubItems.Add(pRow("Status").ToString)
            item.SubItems.Add(pRow("PercTrascinamento").ToString)
            'Add the items to the ListView.
            ListView7.Items.AddRange(New ListViewItem() {item})
        Next

        Dim lc As Integer = ListView7.Items.Count - 1

        ' qui crei e imposti il tuo InsertCommand (connection, commandText, Parameters)

        For i As Integer = 0 To lc
            Dim r As Record, li As ListViewItem = ListView7.Items(i)
            r.ID = li.SubItems(0).Text
            If i = 0 Then
                r.DataIni = DateTime.Parse(li.SubItems(1).Text)
            Else
                r.DataIni = DateTime.Parse(li.SubItems(1).Text)
            End If
            If i < lc Then
                r.DataFin = (DateTime.Parse(ListView7.Items(i + 1).SubItems(1).Text)).Date.AddDays(-1)

            Else
                r.DataFin = ConvertData.GetDataForMySql(MaskedTextBox4.Text)
            End If

            modCalcoloAnni.Anni(Data:=r.DataIni, Data1:=r.DataFin, Rid:="0/0")

            Dim item As New ListViewItem(li.SubItems(0).Text)
            item.SubItems.Add(r.DataIni.ToString("dd/MM/yyyy"))
            item.SubItems.Add(r.DataFin.ToString("dd/MM/yyyy"))
            item.SubItems.Add(li.SubItems(2).Text)
            item.SubItems.Add(AnnoT)
            item.SubItems.Add(MeseT)
            item.SubItems.Add(GiornoT)
            item.SubItems.Add(li.SubItems(3).Text)
            item.SubItems.Add(li.SubItems(4).Text)
            item.SubItems.Add(li.SubItems(5).Text)
            item.SubItems.Add(li.SubItems(6).Text)
            item.SubItems.Add(li.SubItems(7).Text)
            item.SubItems.Add(li.SubItems(Fico.Text)
            'Add the items to the ListView.
            ListView1.Items.AddRange(New ListViewItem() {item})
        Next
    End Sub

grazie in anticipo spero in un aiuto
Registrato

Maurizio
Pagine: [1]   Vai su
  Stampa  
 
Vai a:  

Copyright © 2017 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



powered by Simple Machines