Buongiorno a tutti, forse sono arrivato nel posto giusto...
avrei l'esigenza di visualizzare in un dataviewgrid un record fatto da codice materiale, descrizione del articolo 12 campi (uno per ogni mese) relativi agli ordini fornitori (dati che provengono dagli ordini fornitori) e altri 12 campi (uno per ogni mese) relativi agli ordini clienti. Questi 24 campi sono aggiornati da procedure esaterne...quello che vorrei realizzare e la visualizzazione dei 24 campi relativi ai mesi su due righe in un datagridview..
Vi incollo il codice scrito sinora:
Public Class frmPrincipale
Dim ConnStringAssegnazioni As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ApplicazioneTrafiltecno\Trafiltecno.accd b;"
Dim Connessione As New OleDbConnection(ConnStringAssegnazioni)
Dim DataTable As New DataTable
Private Sub CaricaDati()
Try
Connessione.Open()
Dim Query As String = "SELECT * From Q_Assegnazioni"
Dim Adapter As New OleDbDataAdapter(Query, Connessione)
Adapter.Fill(DataTable)
dgwAssegnazioni.DataSource = DataTable
Connessione.Close()
Catch ex As Exception
MsgBox("Errore di connessione" & vbCrLf & ex.Message)
Connessione.Close()
End Try
End Sub
Private Sub frmPrincipale_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CaricaDati()
ImpostadgwAssegnazioni()
End Sub
Private Sub cmdFine_Click(sender As Object, e As EventArgs) Handles cmdFine.Click
Me.Close()
End
End Sub
Private Sub ImpostadgwAssegnazioni()
'intestazione colonne
With dgwAssegnazioni
.ReadOnly = True
.Columns(0).HeaderText = "Codice"
.Columns(1).HeaderText = "Descriz."
.Columns(2).HeaderText = "Esistenza"
.Columns(3).HeaderText = "Mese1"
.Columns(4).HeaderText = "Mese2"
.Columns(5).HeaderText = "Mese3"
.Columns(6).HeaderText = "Mese4"
.Columns(7).HeaderText = "Mese5"
.Columns(8).HeaderText = "Mese6"
.Columns(9).HeaderText = "Mese7"
.Columns(10).HeaderText = "Mese8"
.Columns(11).HeaderText = "Mese9"
.Columns(12).HeaderText = "Mese10"
.Columns(13).HeaderText = "Mese11"
.Columns(14).HeaderText = "Mese12"
For I = 2 To 14
.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
Next
For I = 2 To 14
.Columns(I).DefaultCellStyle.Format = "###,##0"
Next
For I = 15 To 28
.Columns(I).Visible = False
Next
'larghezza colonne
.Columns(0).Width = 60
.Columns(1).Width = 60
.Columns(2).Width = 70
.Columns(3).Width = 70
.Columns(4).Width = 70
.Columns(5).Width = 70
.Columns(6).Width = 70
.Columns(7).Width = 70
.Columns(8).Width = 70
.Columns(9).Width = 70
.Columns(10).Width = 70
.Columns(11).Width = 70
.Columns(12).Width = 70
.Columns(13).Width = 80
.Columns(14).Width = 80
.RowTemplate.Height = 300
End With
end sub
Ho reso non visibile le ultime 12 colonne per poterle poi visualizzare su una riga successiva, e possibile farlo?
Grazie Aucone Francesco
Rispondi quotando
