LOOP GRADE

RICOCARDOZO 12/01/2012 23:31:17
#393133
Estou usando o seguintepara preencher um arquivo txt com informação de um grid::
Só que ele só pega o ultmo item da grade.

With Grade
Print #N, [Ô]H|[Ô] & Grade.TextMatrix(Grade.Rows - 1, 0) & [Ô]||[Ô]
Print #N, [Ô]I|[Ô] & Grade.TextMatrix(Grade.Rows - 1, 1) & [Ô]||[Ô] _
& Grade.TextMatrix(Grade.Rows - 1, 2) & [Ô]|[Ô] _
& Grade.TextMatrix(Grade.Rows - 1, 3) & [Ô]||[Ô] _
End With
FILMAN 13/01/2012 01:16:24
#393136 Resposta escolhida
Bom é o seguinte se vc quer jogar todas as informações do GRID dentro de um arquivo txt faça assim

Private Sub Carrega_Arquivo(ByVal strCaminho As String, ByRef msFlex As MSFlexGrid)

    Const Delimitador As String = [Ô]|[Ô]

    Dim intFreeFile As Integer
    Dim strLine As String
    Dim r As Integer [ô]Para percorrer as linhas
    Dim c As Integer [ô]Para percorrer as colunas

    intFreeFile = FreeFile

    Open strCaminho For Output As #intFreeFile

    With msFlex
        [ô]cada linha
        For r = 0 To .Rows - 1
            strLine = [Ô][Ô]
            [ô]cada coluna
            For c = 0 To .Cols - 1
                strLine = strLine & IIf(c = 0, [Ô][Ô], Delimitador) & .TextMatrix(r, c)
            Next c

            Print #intFreeFile, strLine
        Next r
    End With

    Close #intFreeFile
End Sub


Para chamar o procedimento faça assim

Call Carrega_Arquivo([Ô]C:\MeuArquivoDaGRID.txt[Ô], Grade)

Verifica ai se da certo
Tópico encerrado , respostas não são mais permitidas
Voltar