FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Страницы: 1 2

Re: Помогите пожалуйста ???
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 18.02.05 06:37:31 У нас был обмен данными - так вот чего писали в служебных колонках ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Помогите пожалуйста ???
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 18.02.05 07:07:20 Тогда самое простое, это перед обработкой таблицы программку на время тормознуть, дать доступ к файлу в Excelе и руками встать в нужную ячейку. ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Помогите пожалуйста ???
Петров Андрей Сообщений: 2506 Откуда: Химки (М.О.) Дата регистрации: 17.04.2002	Петров Андрей 18.02.05 15:37:56 А у меня вот такой случай forum.foxclub.ru Делаю импорт через массив. Очень удобно и быстро. А начало таблицы ищу вот как * _______________________________________________________ * \| Ищем начало номенклатуры \| * \|_______________________________________________________\| * \| Дата изменения: 16.12.04, написана 16.12.04 \| * \|_______________________________________________________\| FUNCTION FindFirstStr PRIVATE x WITH m.oe.workbooks(1).sheets(m.ap_num) FOR m.x=1 TO 20 ! IF VARTYPE(.cells(m.x,2).value)='C' AND VARTYPE(.cells(m.x,3).value)='C' AND VARTYPE(.cells(m.x,4).value)='N' AND VARTYPE(.cells(m.x,5).value)='N' ! RETURN m.x ! ENDIF IF VARTYPE(.cells(m.x,2).value)='C' AND INLIST(VARTYPE(.cells(m.x,6).value),'N','Y') AND !(EMPTY(.cells(m.x,8).value) OR ISNULL(.cells(m.x,8).value)) AND !(ALLTRIM(.cells(m.x,2).value)=='1') RETURN m.x ENDIF ENDFOR ENDWITH RETURN 0 * _______________________________________________________ * \| Считаем номенклатуру \| * \|_______________________________________________________\| * \| Дата изменения: 16.12.04, написана 16.12.04 \| * \|_______________________________________________________\| FUNCTION FindNextStr LPARAMETERS n,f WITH m.oe.workbooks(1).sheets(m.ap_num) RETURN IIF(VARTYPE(.cells(m.n,2).value)='C' AND INLIST(VARTYPE(.cells(m.n,6).value),'N','Y') AND !(EMPTY(.cells(m.n,IIF(m.f,7,8)).value) OR ISNULL(.cells(m.n,IIF(m.f,7,8)).value)),.t.,.f.) ENDWITH Те по типу колонки + есть или нет некоторые поля... ------------------ PS Недочитал тему до конца...

Re: Помогите пожалуйста ???

Петров Андрей

Сообщений: 2506
Откуда: Химки (М.О.)
Дата регистрации: 17.04.2002

Петров Андрей

18.02.05 15:37:56

А у меня вот такой случай forum.foxclub.ru

Делаю импорт через массив. Очень удобно и быстро. А начало таблицы ищу вот как


*     _______________________________________________________
*    |  Ищем начало номенклатуры                             |
*    |_______________________________________________________|
*    |  Дата изменения: 16.12.04, написана  16.12.04         |
*    |_______________________________________________________|
FUNCTION FindFirstStr
PRIVATE x
WITH m.oe.workbooks(1).sheets(m.ap_num)
    FOR m.x=1 TO 20
*!*           IF VARTYPE(.cells(m.x,2).value)='C' AND VARTYPE(.cells(m.x,3).value)='C' AND VARTYPE(.cells(m.x,4).value)='N' AND VARTYPE(.cells(m.x,5).value)='N'
*!*               RETURN m.x
*!*           ENDIF
        IF VARTYPE(.cells(m.x,2).value)='C' AND INLIST(VARTYPE(.cells(m.x,6).value),'N','Y') AND !(EMPTY(.cells(m.x,8).value) OR ISNULL(.cells(m.x,8).value)) AND !(ALLTRIM(.cells(m.x,2).value)=='1')
            RETURN m.x
        ENDIF
    ENDFOR
ENDWITH
RETURN 0
*     _______________________________________________________
*    |  Считаем номенклатуру                                 |
*    |_______________________________________________________|
*    |  Дата изменения: 16.12.04, написана  16.12.04         |
*    |_______________________________________________________|
FUNCTION FindNextStr
LPARAMETERS n,f
WITH m.oe.workbooks(1).sheets(m.ap_num)
    RETURN IIF(VARTYPE(.cells(m.n,2).value)='C' AND INLIST(VARTYPE(.cells(m.n,6).value),'N','Y') AND !(EMPTY(.cells(m.n,IIF(m.f,7,8)).value) OR ISNULL(.cells(m.n,IIF(m.f,7,8)).value)),.t.,.f.)
ENDWITH

Те по типу колонки + есть или нет некоторые поля...

------------------
PS Недочитал тему до конца...

Re: Помогите пожалуйста ???
Vadim H.Hairetdinov Сообщений: 16 Откуда: г.Тюмень, Россия Дата регистрации: 22.06.2004	Vadim H.Hairetdinov 18.02.05 15:56:08 Помоему здесь: www.msoffice.nm.ru

Re: Помогите пожалуйста ???
Saratoga Сообщений: 493 Дата регистрации: 02.02.2004	Saratoga 19.02.05 14:52:42 Ничего подобного, в dbf -могут попасть и пустые строки, сам потом программно их отслеживал и удалял

Страницы: 1 2

:: Список Форумов•Список тем•Поиск•Войти

Эта тема закрыта.

On-line: 4 (Гостей: 4)