FoxPro 9.0通过表循环

Question

是否可以遍历表并从每行检索值

=================
Contracts.dbf
=================
P01
C04
CH45
T31


counter = 1
Do While 1 < 4
   SomethingSomethingSomething
counter = counter + 1
ENDDO

因此当counter = 1时，循环返回P01，counter = 2返回C04，依此类推。

Answer 1

SELECT Contracts

SCAN

    m.Counter = 1
    m.Something = ""

    DO WHILE m.Counter <= FCOUNT() 
        m.Something = EVAL(FIELD(m.Counter))
        m.Counter = m.Counter +1
    ENDDO

ENDSCAN

Answer 2

试试这个：

SELECT contracts
SCAN
    x = contracts.fieldname1
    MESSAGEBOX("Value -> " + x)
ENDSCAN