-
Visualizzazione di array
Scusate, vorrei chiedere se e` possibile ,avendo una matrice bidimensionale, averla a video con visulalizzazione tipo casella combinata senza salvarla prima in una tabella .
Grazie
-
Software Zone Fanatic
spiegati meglio
che linguaggio di programmazione usi ?
-
Scusa, uso il VBA di Access2003. Vorrei un esempio pratico di come popolare una casella combinata con elenco valori e usando ADDITEM membro dell' oggetto Listbox.
Grazie
-
Software Zone Fanatic
per aggiungere un elemento in una casella combinata (combobox) devi usare il metodo
AddItem
quindi dovrai fare un ciclo che scorre l'array e nel contempo popola la combobox
Dim i As Integer
With combobox1
For i = 0 To UBound(array) '(UBound(array) ti dà il totale elementi Array)
.AddItem array(i)
Next i
'Seleziona il primo elemento.
.ListIndex = 0
End With
ciao
-
Scusami , ho usato questo codice e va bene, solo che vorrei che la listbox avesse piu` colonne .Come si genera ?
Sub Alist()
For I = 1 To 50
Forms![Prova Calcolo].CS1.AddItem I
Next
End Sub
-
Software Zone Fanatic
Allora non era una casella combinata !!!!
a te serve una listview !!!
Dim tempItem As ListItem
With listview1
.View = lvwReport 'tipo visualizzazione report
'pulisce la lista
.ListItems.Clear
'pulisce ColumnHeaders collection.
.ColumnHeaders.Clear
'crea le colonne
.ColumnHeaders.Add , , "ID", 200
.ColumnHeaders.Add , , "prova calcolo", 1000
For I = 1 To 50
Set tempItem = .ListItems.Add()
tempItem.text I
tempItem .SubItems(I) = "Pippo" & I
next
End With
ciao
-
Grazie.Ti faro` sapere come va` .
-
Scusa ma il termine :"Dim tempItem As ListItem" non esiste in Access2003, forse bisogna usare :"Dim tempItem As ListBox" ?
Mi fai sapere qualcosa?
Grazie
-
Software Zone Fanatic
Scaricati questo esempio (link con zip)
ActiveX Listview control with ImageList - Access World Forums
1 ) Apri una maschera
2) vai su Inserisci =>controlli activex ...
3) cerca Microsoft ListView Control e vedi esempio di utilizzo del link sopra
ciao
-
Grazie di tutto, il codice finale e` :
Sub Alist()
Dim I As Byte
With Forms![Prova Calcolo].CR1
.RowSource = ""
.ColumnCount = 7
.ColumnWidths = "1200;800;800;800;800;800;800"
For I = 1 To 100
.AddItem I & ";" & I + 1 & ";" & I + 2 & ";" & I + 3 & ";" & I + 4 & ";" & I + 5 & ";" & I + 6
Next I
End With
End Sub
Saluti
-
Software Zone Fanatic
ciao
Permessi di Scrittura
- Tu non puoi inviare nuove discussioni
- Tu non puoi inviare risposte
- Tu non puoi inviare allegati
- Tu non puoi modificare i tuoi messaggi
-
Regole del Forum
Segnalibri