Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 3 123 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 30

Che c’ di sbagliato in questo codice??

  1. #1
    gilmour non  in linea Novello
    Private Sub Corpo_Click()

    Dim DatiOrigine As String
    Dim RIGA As Integer

    For RIGA = 0 To Origine.ListCount - 1
    If Origine.Selected(RIGA) Then
    DatiOrigine = DatiOrigine & Origine.Column(1, RIGA)
    End If
    Next RIGA

    Destinazione.Column(0, RIGA) = DatiOrigine

    End Sub

    i dati racchiusi in DatiOrigine dovrebbero trsferirsi nella casella di riepilogo Destinazione ma mi da un bug!!!

    mannaggia!!
    [img]smileys/smiley9.gif[/img]

  2. #2
    L'avatar di TheTruster
    TheTruster non  in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    su quale riga ti da il "bug"?
    che intendi per "bug"?
    un Errore di Run-Time?
    un comportamento difforme da quello che ti aspetti?
    se si tratta di un errore qual' il messaggio che ti viene restituito?

    mi spiace rispondere ad una domanda con altre domande... ma se non spieghi nel dettaglio il problema difficile darti una risposta risolutiva [img]smileys/smiley2.gif[/img]

    TheTruster
    ℹ️ Leggi di pi su TheTruster ...

  3. #3
    gilmour non  in linea Novello
    In Primis
    grazie per l'attenzione noto che sul forum sei il pi disponibile... [img]smileys/smiley32.gif[/img]


    segnala questa riga come errata:
    Destinazione.Column(0, RIGA) = DatiOrigine

    la sostanza questa:
    sto cercando di trasferire i dati di una riga selezionata da casella di riepilogo "Origine"
    ad un'altra casella di riepilogo "Destinazione"

    ma nonstante riesca a gestire la riga selezionata con la variabile "DatiOrigine", non riesco a trasferirli in "Destinazione"

    dovrei capire quale propriet utilizzare per indicare le "coordinate" per il trasferimento...

    n.b.: ho un po' di confusione in testa (sono circa 3 ore che le provo tutte) quindi mi scuso se sono nebbioso nelle spiegazioni.

  4. #4
    L'avatar di TheTruster
    TheTruster non  in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    beh, in effetti te ne sei andato sul cervellotico [img]smileys/smiley4.gif[/img]

    cos dovresti riuscire nel tuo intento:

    Dim IndSel As Integer
    Dim C As Integer
    
    IndSel = ListBox1.ListIndex
    
    ListBox2.AddItem ListBox1.List(IndSel, 0)
    
    For C = 1 To ListBox1.ColumnCount - 1
    ListBox2.Column(C, ListBox2.ListCount - 1) = ListBox1.List(IndSel, C)
    Next C
    
    ovviamente le due listbox dovranno essere dimensionate con lo stesso numero di colonne...

    se poi la riga passata dalla ListBox1 alla ListBox2, la vuoi eliminare dalla ListBox1 scrivi, dopo il codice di prima, anche questa riga:

    ListBox1.RemoveItem (IndSel)
    
    TheTruster
    ℹ️ Leggi di pi su TheTruster ...

  5. #5
    gilmour non  in linea Novello
    brutte notizie
    il comando additem non disponibile nel mio editor vb access

    anche se ce l'ho nel vba di excel

    ...forse c' un maledettissimo gnomo che si diverte con me oggi?

    ...se lo trovo lo scansiono e ve lo mando. [img]smileys/smiley18.gif[/img] [img]smileys/smiley7.gif[/img]

  6. #6
    L'avatar di TheTruster
    TheTruster non  in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    uhm... qui non ho a disposizione access... magari stasera, faccio qualche prova e ti faccio sapere...

    nel frattempo, se vedi gli gnomi, ascoltami... riposati un po' [img]smileys/smiley36.gif[/img] [img]smileys/smiley38.gif[/img] [img]smileys/smiley12.gif[/img]

    TheTruster
    ℹ️ Leggi di pi su TheTruster ...

  7. #7
    gilmour non  in linea Novello
    [img]smileys/smiley36.gif[/img] [img]smileys/smiley36.gif[/img] [img]smileys/smiley36.gif[/img] [img]smileys/smiley36.gif[/img] [img]smileys/smiley36.gif[/img]

    ok, buon consiglio

    grazie a presto

  8. #8
    L'avatar di dragone bianco
    dragone bianco non  in linea Amanuense
    Scusate intrusione

    il codice corretto :
    dim I as integer
    Dim Testo

    For i = 0 To lstDati.ListCount - 1
    If lstDati.Selected(i)=true Then
    Testo= Testo & lstDati.Column(0,I) & ";" & lstDati.Column(1,I) & ";"
    End If
    Next I

    lstDati1.RowSource=Testo

    con questo codice visualizzerai i dati selezionati nella prima casella di riepilogo nella 2 casella di riepilogo.

    lstDati e lstDati1 sono 2 caselle di riepilogo
    ℹ️ Leggi di pi su dragone bianco ...

  9. #9
    L'avatar di TheTruster
    TheTruster non  in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    comunque io ho guardato le propriet delle caselle di riepilogo di Access, e ovviamente anche in quelle presente AddItem.

    TheTruster
    ℹ️ Leggi di pi su TheTruster ...

  10. #10
    L'avatar di dragone bianco
    dragone bianco non  in linea Amanuense
    S lo so che esiste la propriet additem ma non sono mai riuscito ad utilizzarlo, mi da sempre errore di debug anche da esempi tratti dalla guida in linea.
    ℹ️ Leggi di pi su dragone bianco ...

+ Rispondi al messaggio
Pagina 1 di 3 123 ultimoultimo

Potrebbero interessarti anche ...

  1. cosa c' di sbagliato in questo codice?
    Da killer nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 27-06-2011, 23:02
  2. Cosa c' di sbagliato in questo codice??
    Da mason89 nel forum C/C++
    Risposte: 0
    Ultimo Post: 03-04-2011, 17:37
  3. Codice sbagliato KeyValue
    Da glak nel forum Visual Basic .Net
    Risposte: 7
    Ultimo Post: 30-01-2011, 11:44
  4. Cosa c' che non va in questo codice
    Da trump61 nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 19-11-2009, 01:04
  5. [ACCESS] CODICE GIUSTO ma risultato sbagliato
    Da Maresca14 nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 06-09-2008, 20:20