O QUE FAZ ESTAS LINAHS DE CODIGO??

USUARIO.EXCLUIDOS 22/07/2005 11:07:45
#95537
Olá,

Alguem me explicaria o q realmente faz este código: 


Do Until TABELA.EOF 

   NumUltimaNF = TABELA![NF] 
     TABELA.MoveNext ' Move para o proximo registro 
    If TABELA.EOF Then ' Se for fim de registro volta para o anterior 
      TABELA.MovePrevious 
      NumVezes = 1 
      GoTo pula 
    End If 
    If NumUltimaNF = TABELA![NF] Then 'Compara a 1º linha com a proxima (2º linha NF) 
      TABELA.MoveNext       'Se for igual então pula para o 
      If TABELA.EOF Then    ' proximo registro senão volta um registro 
        TABELA.MovePrevious ' Se for fim de arquivo volta dois registro 
        TABELA.MovePrevious 
      Else 
        If NumUltimaNF = TABELA![NF] Then ' Caso exista 3 linha com o mesmo registro 
         If TABELA.EOF Then 
          TABELA.MovePrevious 
          TABELA.MovePrevious 
         Else 
          TABELA.MoveNext 
          If NumUltimaNF = TABELA![NF] Then 'Compara o 4º registro se for igual ao três anteriores então 
            TABELA.MovePrevious 
            TABELA.MovePrevious 
            TABELA.MovePrevious 
          Else 
            TABELA.MovePrevious  ' Volta três registros 
            TABELA.MovePrevious 
            TABELA.MovePrevious 
          End If 
         End If 
          NumVezes = 3 
        Else 
          TABELA.MovePrevious 
           TABELA.MovePrevious 
          NumVezes = 2 
        End If 
      End If 
    Else 
      NumVezes = 1 
      TABELA.MovePrevious 
      PosLetra = "" 
      NumUltimaNF = TABELA![NF] 
     End If 
pula: 
For i = 1 To NumVezes 
  If NumVezes = 1 Then 
    PosLetra = "" 
  Else 
    If i = 1 Then 
      PosLetra = "A" 
    Else 
      If i = 2 Then 
        PosLetra = "B" 
      Else 
        If i = 3 Then 
          PosLetra = "C" 
        End If 
     End If 
   End If 
  End If 
saiLinha:


Grato
Pierre
pierregodoi@msn.com
LCSD 22/07/2005 13:35:21
#95593 Resposta escolhida
Caro Pierra,

Por gentileza, não duplique o seu POST, VC já criou um POST deste ontem, e eu já estava lhe ajudando com este seu problema, dando até sugestões no outro tópico de como melhorar estas linhas de código.

Por favor, para não gerarmos gastos extras para o WEBMASTER, não duplique seu tópicos a toa. Re-ative o tópico antigo, mas não abra outro.


PS: Leia as regras do fórum, e mais uma coisa, utilize tópicos mais sugestivos, para facilitar que os usuários lhe ajudem
WEBMASTER 22/07/2005 14:07:25
#95600
Jesus !!!
Basicamente essa bagunça fica indo e vindo para cada linha do recordset, pelo que eu entendi é isso.
Mas um outro recordset resolvia isso facil facil
WEBMASTER 22/07/2005 15:28:01
#95627
Olha na minha humilde opinião, o mais cà'mico é essa parte:


If NumUltimaNF = TABELA![NF] Then 
            TABELA.MovePrevious 
            TABELA.MovePrevious 
            TABELA.MovePrevious 
          Else 
            TABELA.MovePrevious  
            TABELA.MovePrevious 
            TABELA.MovePrevious 
          End If

Resumindo, se for pula 3 se não for pula 3 [S51]
USUARIO.EXCLUIDOS 26/07/2005 17:36:56
#96106
Cara isso que eu chamo de "enxugar" o código!
USUARIO.EXCLUIDOS 27/07/2005 16:15:56
#96256
Preciso entender estas linhas, será q alguem pode me explicar melhor?

grato
Pierre
LUCASVA 27/07/2005 17:47:55
#96287
TABELA.MovePrevious

é o mesmo que ir para o registro anterior


neste loop desgraçado que este teu professor de cursinho de vb te passou tu tem de ver ser o qual o valor que chegou numvezes para colra para a Veriavel o valor final;
Tópico encerrado , respostas não são mais permitidas
Voltar