Новости



Visual FoxPro 9 позволяет создавать ещё более производительные приложения баз данных.
Двадцатиление FoxPro! Microsoft принимает поздравления.
Visual FoxPro Toolkit for .NET - более 225 функций VFP 7.0, для языков .NET (подробнее)

fox00020.gif

* В следующем примере в цикле DO WHILE подсчитывается объем
* наличного запаса продуктов стоимостью свыше 20 долларов. Выход из
* цикла DO WHILE производится по достижении конца файла (EOF), при
* этом на экран выводится итоговая сумма.

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE products && Opens Products table

SET TALK OFF

gnStockTot = 0

DO WHILE .T. You can place comments here!

IF EOF( )

EXIT

ENDIF

IF unit_price < 20

SKIP

LOOP

ENDIF

gnStockTot = gnStockTot + in_stock

SKIP

ENDDO Or you can place comments here!

CLEAR

? 'Total items in stock valued over 20 dollars:'

?? gnStockTot



Новое на сайте

  • Обновлен портфель программиста

    Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский)

  • Новые примеры программ

    Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2)

  • Обновленна справка

    Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.