Re: Fehler beim öffnen/speichern der Tabelle

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

SELECT ktnummer FROM (thisform.datadir_neukarten) ;
WHERE ktnummer NOT IN ;
(SELECT ktnummer FROM (thisform.datadir_kfz) ;
INTO CURSOR Q1

UPDATE Neukarten SET karteveg=M.wert ;
WHERE ktnummer IN ;
(SELECT ktnummer FROM Q1)

-Anders

"Simon Grimm" <SGrim.Horlemann@xxxxxx> skrev i meddelandet
news:eTmGEXu2FHA.4076@xxxxxxxxxxxxxxxxxxxxxxx
> Hallo,
>
> mit dem folgenden Code vergleiche ich zwei tabellen, und wenn das Feld
> welches in tmp2 gespeichert ist nicht in tmp1 vorkommt, so
> möchte ich das in einer tabelle speichern. Eigentlich arbeitet der Code
> auch, nur wird das REPLACE irgendwie nicht übernommen
>
> ** Bestimmt welche Karten genutzt werden
> USE (Thisform.cdatadir_neukarten)
> LOCAL countv(1,1)
> SELECT count(*) FROM stamm1\st_kfz INTO ARRAY countv
> IF countv(1,1)>0 then
> SELECT DISTINCT ALLTRIM(ktnummer) FROM (Thisform.cdatadir_kfz) INTO
> ARRAY tmp1
> SELECT DISTINCT ALLTRIM(ktnummer) FROM (Thisform.cdatadir_neukarten)
> INTO ARRAY tmp2
> FOR i = 1 TO 4
> IF ASCAN(tmp1,tmp2(i)) = 0 THEN
> MESSAGEBOX(tmp2(i) + ' ist nicht vergeben
> ('+ALLTRIM(STR(i))+')')
> SELECT neukarten
> LOCATE FOR ALLTRIM(neukarten.ktnummer) == ALLTRIM(tmp2(i))
> IF FOUND()
> REPLACE neukarten.karteverge WITH .F.
> MESSAGEBOX("nicht vergeben")
> ENDIF
> ENDIF
> NEXT i
> ENDIF
>
> Danke für die Hilfe
> Gruß Simon
>
>


.