Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
End of file
Message
De
23/12/2004 02:24:59
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00971336
Message ID:
00971690
Vues:
23
hi,
i try again,but still he replace only the second record from table newdnc to table newdnc1, i get erro message syntax error at this statment under
WAIT WINDOW RecNo("newdnc") && To see the SKIP
i want display what i have at my two tables as under
table newdnc have many filelds with full data as
No.1, name aaaaaa,age 25....
  .2
  .3
   .
   .
to 5555...

mytable newdnc1 have all fileds as newdnc with few  RANDOMLY NO.  as the same number at newdnc1,but another fields is empty as..
No 10, empt name ,empty age...
   5
   104
   .
   .
   .
remark.this numbers ex.. 10,5,105 ,i 'm sure you can find it at newdnc
i need to locate for every number at newdnc1=number at newdnc,and replace the data to newdnc1 ...next to end of newdnc1..

thanks.
best regards.
m.qasem
>It is impossible not to make SKIP
>
>     select 0
>     use newdnc1
>     select 0
>     use newdnc
>     m.tablechar1=char1
>     SCAN
>        WAIT WINDOW RecNo("newdnc") && To see the SKIP
>        SCATTER MEMVAR
>        select newdnc1
>        GO TOP
>        LOCATE FOR Char1 == m.tablechar1
>        IF FOUND()
>           SCAN WHILE Char1 == m.tablechar1
>                GATHER MEMVAR
>           ENDSCAN
>        ELSE
>           WAIT WINDOW "Not FOUND. Searched value = "+m.tablechar1
>        ENDIF
>        select newdnc
>    ENDSCAN
>    CLOSE ALL
>
>
>
>
>>hi,
>>when i open mytable newdnc1 i sse
>>he replace char=1 with char=2 and all fields to this record only ,he did not make skip,
>>thanks.
>>m.qasem
>>
>>>IF You see it check WHY Locate didn't work
>>>
>>>
>>>>hi,
>>>>i see this message WAIT WINDOW "Not FOUND. Searched value = "+m.tablechar1.
>>>>nothing at mytable ,no data insert at my table
>>>>thanks.
>>>>m.qasem
>>>>>No Scan dosn't require SKIP, If You put SKIP SCAN ... ENDSCAN will skip two records at the end of cikle. Put sumethig to see if the LOCATE FOR Char1 == m.tablechar1 is found something.
>>>>>
>>>>>      select 0
>>>>>      use newdnc1
>>>>>      select 0
>>>>>      use newdnc
>>>>>      m.tablechar1=char1
>>>>>
>>>>>      SCAN
>>>>>          SCATTER MEMVAR
>>>>>          select newdnc1
>>>>>          LOCATE FOR Char1 == m.tablechar1
>>>>>          IF FOUND()
>>>>>             GATHER MEMVAR
>>>>>          ELSE
>>>>>             WAIT WINDOW "Not FOUND. Searched value = "+m.tablechar1
>>>>>          ENDIF
>>>>>          select newdnc
>>>>>      ENDSCAN
>>>>>      CLOSE ALL
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>>hi,
>>>>>>he replace one record only.
>>>>>>maybe he need somthing as skip.
>>>>>>thanks.
>>>>>>
>>>>>>>many errors in your code:
>>>>>>>
>>>>>>>      select 0
>>>>>>>      use newdnc1
>>>>>>>      select 0
>>>>>>>      use newdnc
>>>>>>>      m.tablechar1=char1
>>>>>>>
>>>>>>>      SCAN
>>>>>>>          SCATTER MEMVAR
>>>>>>>          select newdnc1
>>>>>>>          LOCATE FOR Char1 == m.tablechar1
>>>>>>>          IF FOUND()
>>>>>>>             GATHER MEMVAR
>>>>>>>          ENDIF
>>>>>>>          select newdnc
>>>>>>>      ENDSCAN
>>>>>>>      CLOSE ALL
>>>>>>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform