Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Неукротимый Excel / 6 сообщений из 6, страница 1 из 1
25.08.2004, 13:10
    #32664617
ЕленаШ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неукротимый Excel
Почему то не хочет правильно отображаться номер лицевого счета С(20),
вернее первая половина правильна, а половина заполняется нулями, типа
42307890000000000000

Может здесь где то ошибка? Хотя навряд ли (это скачано с форума)
xl=CreateObject('Excel.Application')
xl.WorkBooks.addxl.WindowState=-4140
xl.ScreenUpdating=.f.
use MyTable
GO TOP
LOCAL lnRn
lnRn=2
DO WHILE !EOF()
xl.Cells(i,3)=MyTable.Fio
xl.Cells(i,4)=MyTable.NomLs
SKIP
lnRn=lnRn+1
ENDDO
.......
...
Рейтинг: 0 / 0
25.08.2004, 14:04
    #32664771
dichenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неукротимый Excel
ЕленаШПочему то не хочет правильно отображаться номер лицевого счета С(20),
вернее первая половина правильна, а половина заполняется нулями, типа
42307890000000000000

Может здесь где то ошибка? Хотя навряд ли (это скачано с форума)
xl=CreateObject('Excel.Application')
xl.WorkBooks.addxl.WindowState=-4140
xl.ScreenUpdating=.f.
use MyTable
GO TOP
LOCAL lnRn
lnRn=2
DO WHILE !EOF()
xl.Cells(i,3)=MyTable.Fio
xl.Cells(i,4)=MyTable.NomLs
SKIP
lnRn=lnRn+1
ENDDO
.......

Попробуйте Val(MyTable.NomLs)
...
Рейтинг: 0 / 0
25.08.2004, 14:12
    #32664792
T0lik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неукротимый Excel
Надо поставить
xl.Cells(i,4).NumberFormat ="@" && Текстовый формат ячейки
Перед
xl.Cells(i,4)=MyTable.NomLs
...
Рейтинг: 0 / 0
25.08.2004, 16:51
    #32665302
Cyv
Cyv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неукротимый Excel
А с чего бы это обьявляется и наращивается в цикле переменная lnRn,
а для адресации используется переменная i ?
...
Рейтинг: 0 / 0
26.08.2004, 07:14
    #32665837
ЕленаШ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неукротимый Excel
T0lik так точно, получилось)
Cyv - ничего страшного с разных примеров компоновалось)
Всем спасибо!
...
Рейтинг: 0 / 0
26.08.2004, 07:28
    #32665843
LightWarrior
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неукротимый Excel
ЕленаШ
...
DO WHILE !EOF()
xl.Cells(i,3)=MyTable.Fio
xl.Cells(i,4)=MyTable.NomLs
SKIP
lnRn=lnRn+1
ENDDO
.......

Попробуй так:

Код: plaintext
xl.Cells(i, 4 )="'"+MyTable.NomLs
т.е. идея в том чтобы перед номером счета поставить апостроф(одиночную ковычку)
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Неукротимый Excel / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]