Hi,

I have to convert a VFP(.prg) into a VB.Net program and I have some difficulty.

My biggest difficulty is because the foxpro program use cursor in his traitment and I don't know how to do the same thing in .Net. I know how to do simple select or update, but I don't know how to convert the cursor.

I'll show you the foxpro code :

LOCAL cEstimID, cBillLocat 
LOCAL ARRAY aInfo(1,1) 

  SELECT ai, estim_id, bill_locat, reviewerid, reviewerco FROM mittellog ; 
     WHERE !EMPTY(reviewerid) ; 
     AND   !EMPTY(reviewerco) ; 
     AND   estim_id NOT IN (SELECT estim_id FROM estimators) ; 
  INTO CURSOR curs_check 

  SELECT curs_check 
  SCAN 

     SELECT estim_id, bill_locat FROM reviewerids ; 
        WHERE reviewerid = curs_check.reviewerid ; 
        AND   reviewerco = curs_check.reviewerco ; 
     INTO ARRAY aInfo 

     IF _TALLY > 0 

        cEstimID   = aInfo(1,1) 
        cBillLocat = aInfo(1,2) 

        UPDATE mittellog SET estim_id = cEstimID, bill_locat = cBillLocat ; 
           WHERE ai = curs_check.ai 

     ENDIF 

     SELECT curs_check 

  ENDSCAN 

Anybody have some ideas, examples that can help me ?

Sorry if my english is not perfect
thx

--------------------------------------------------------------------------------------

Bonjour,

Je dois convertir un programme VFP(.prg) en un progamme VB.Net et j'ai quelques difficultés.

Ma plus grande difficulté viens du fait que foxpro utilise des curseurs dans son traitement et je n'arrive pas à faire l'équivalent en .Net. Je sais comment faire de simples select, update, mais pas le traitement avec les curseurs.

Je vous montre un exemple du code foxpro :

LOCAL cEstimID, cBillLocat 
LOCAL ARRAY aInfo(1,1) 

  SELECT ai, estim_id, bill_locat, reviewerid, reviewerco FROM mittellog ; 
     WHERE !EMPTY(reviewerid) ; 
     AND   !EMPTY(reviewerco) ; 
     AND   estim_id NOT IN (SELECT estim_id FROM estimators) ; 
  INTO CURSOR curs_check 

  SELECT curs_check 
  SCAN 

     SELECT estim_id, bill_locat FROM reviewerids ; 
        WHERE reviewerid = curs_check.reviewerid ; 
        AND   reviewerco = curs_check.reviewerco ; 
     INTO ARRAY aInfo 

     IF _TALLY > 0 

        cEstimID   = aInfo(1,1) 
        cBillLocat = aInfo(1,2) 

        UPDATE mittellog SET estim_id = cEstimID, bill_locat = cBillLocat ; 
           WHERE ai = curs_check.ai 

     ENDIF 

     SELECT curs_check 

  ENDSCAN

Quelqu'un aurait-il des idées, stratégies, exemples à me suggérer ?

Merci