[vb6] Problema con tabella in Word

[huracan@hush]

ciao Gibra,

dopo aver passato la notte cercando di capirci qualcosa..facendo anche il Debug del codice..premendo F8 e passando il codice riga per riga...ho capito che l'errore è in questo punto:

 Addtotable i, .TextMatrix(i, 2), .TextMatrix(i, 3), .TextMatrix(i, 5), .TextMatrix(i, 6), .TextMatrix(i, 7), .TextMatrix(i, 8)
                'eventuali altri parametri per altrettante colonne...

dove mi viene segnalato errore di runtime '13' - Tipo non corrispondente

Ho visto che il comando mi crea la tabella in Word con le stesse righe della MSFlexGrid grazie a questo codice:

.Tables.Add WordApp.Selection.Range, MSFlexGrid1.rows, 6

ma la tabella creata non viene popolata con i dati della MSFlexGrid.

La routine postata da te, per quel che la mia minima (quasi nulla) conoscenza mi ha permesso di capire, dovrebbe far in modo di non ripetere per ogni riga della griglia cosa inserire, ma di farlo in modo "automatizzato" (non sò se è il termine adatto). Comunque per spiegarmi meglio...se non vado errato quelle che vengono dichiarate tra le 2 parantesi

Sub AddToTable(sID As String, sDateTime As String, _
    sNome As String, sCognome As String, _
    sCosto As Single)

.. dovrebbero essere le intestazioni delle colonne della MSFlexGrid o del Database (sono le stesse)...poi richiamando la routine:

With MSFlexGrid1
Dim i As Integer
    For i = 1 To .rows - 1
        Addtotable i, .TextMatrix(i, 2), .TextMatrix(i, 3), .TextMatrix(i, 5), .TextMatrix(i, 6), .TextMatrix(i, 7), .TextMatrix(i, 8)
                'eventuali altri parametri per altrettante colonne...
    Next
End With

dovrebbe (in teoria e almeno credo)..aggiungere alla tabella i record della MSFlexGrid sotto la colonna specificata.

Adesso non sò se ho capito bene o ho detto solo una marea di c...ate provenienti dalla mia ignoranza in materia...però almeno ci ho provato!