Код я написал на кнопке

вот собственно код:

\\Сначала очищаю курсор

Thisform.grid1.recordSource=' '


\\потом снова создаю временный курсор

select * from table1 into cursor tmp1
select alltrim(famili)+" "+alltrim(name)+" "+alltrim(father) as ФИО, date1 as Дата_рождения,;
iif(isnull(name_org),'',alltrim(name_org)) as Организация, iif(isnull(name_dolz),'',alltrim(name_dolz)) as Должность,;
alltrim(dom_tel) as Домашний_тел, alltrim(job_tel) as Рабочий_тел, alltrim(mobile) as Моб_телефон,;
alltrim(email) as Эл_почта, alltrim(sait) as Сайт, alltrim(zametka) as Примечание, id as Код ;
from table1 left outer join table3 on table1.id_organis = table3.id_organis left outer join table2 on table1.id_dolznos = table2.id_dolznos order by 1 into cursor tmp1

Thisform.grid1.recordSource="tmp1"
\\экспортирую

export to BASE xls as 1251

\\очищаю курсор

Thisform.grid1.recordSource=' '

\\создаю другой курсор, то есть возвращаю всё на свои места в grid1

select * from table1 into cursor tmp1
select alltrim(famili)+" "+alltrim(name)+" "+alltrim(father) as fio, iif(isnull(name_org),'',alltrim(name_org)) as name_org, iif(isnull(name_dolz),'',alltrim(name_dolz)) as name_dolz,;
alltrim(mobile) as mobile, id as id ;
from table1 left outer join table3 on table1.id_organis = table3.id_organis left outer join table2 on table1.id_dolznos = table2.id_dolznos order by 1 into cursor tmp1

Thisform.grid1.recordSource="tmp1"

THISFORM.REFRESH

Закрываю программу свою, смотрю, в папке где моё приложение рядом появился файл base.xls вот рисунок:

А вот что у меня получилось в файле base.xls:

Вопрос 1:
Как экспортировать по другому чтобы можно было переименовать Заголовки колонок и изменить размеры ячеек:

Вопрос 2:
С импортом завис, не соображу как правильно код прописать( , много вариантов кода написал, но вот этот, хоть он такой же как и код с экспортом, но я думаю он ближе к истине, хотя могу ошибаться, вот как я написал код:

\\Сначала очищаю курсор

Thisform.grid1.recordSource=' '


\\потом снова создаю временный курсор

select * from table1 into cursor tmp1
select alltrim(famili)+" "+alltrim(name)+" "+alltrim(father) as ФИО, date1 as Дата_рождения,;
iif(isnull(name_org),'',alltrim(name_org)) as Организация, iif(isnull(name_dolz),'',alltrim(name_dolz)) as Должность,;
alltrim(dom_tel) as Домашний_тел, alltrim(job_tel) as Рабочий_тел, alltrim(mobile) as Моб_телефон,;
alltrim(email) as Эл_почта, alltrim(sait) as Сайт, alltrim(zametka) as Примечание, id as Код ;
from table1 left outer join table3 on table1.id_organis = table3.id_organis left outer join table2 on table1.id_dolznos = table2.id_dolznos order by 1 into cursor tmp1

Thisform.grid1.recordSource="tmp1"

\\импортирую

IMPORT FROM E:\BASE TYPE XLs SHEET base

\\очищаю курсор

Thisform.grid1.recordSource=' '

\\создаю другой курсор, то есть возвращаю всё на свои места в grid1

select * from table1 into cursor tmp1
select alltrim(famili)+" "+alltrim(name)+" "+alltrim(father) as fio, iif(isnull(name_org),'',alltrim(name_org)) as name_org, iif(isnull(name_dolz),'',alltrim(name_dolz)) as name_dolz,;
alltrim(mobile) as mobile, id as id ;
from table1 left outer join table3 on table1.id_organis = table3.id_organis left outer join table2 on table1.id_dolznos = table2.id_dolznos order by 1 into cursor tmp1

Thisform.grid1.recordSource="tmp1"

THISFORM.REFRESH

Короче говоря....
HELP ME PLEASE!!! V_V

IgorNG,

Тяжко дается V_V теория, я про импорт читал, но с моим примером не пойму как в моем случае написать, можете написать на моем примере? Я многие варианты пробовал, но всё тщетно(

IgorNG,

Никак не соображу как объяснить чтобы ты понял (V_V)

Claymore,

Сейчас я сделаю и вместе с рисунками тебе пришлю, хорошо (^_^)

IgorNG,

Значит на это рисунке я экспортировал данные, то есть те данные которые сейчас находятся в базе:

IgorNG,

А вот эти я буду добавлять к тем данным:

IgorNG,

Как мне импортировать данные, чтобы к этим добавить? Что прописать в коде кнопки "ИМПОРТ" ? Если можно на моем примере (^_^)

IgorNG,

Ну допустим человек, заполнил данные через excel, так как это быстрее, скопировать или еще что то, а потом их импортировал в foxpro

IgorNG,

Грубо говоря, вдруг пригодится, мало ли прога откажет, а она будет пока работать в excel а после импортирует эти данные в foxpro)

IgorNG,

Правильно, новые берутся, вводятся руками

IgorNG,

Программа нужна для работы, а excel в случае если что то случится временно с программой

IgorNG,

Ну ты меня затролил Поставлю защиту, чтобы не удалили)

IgorNG,

почему одних и тех же? неее, импорт происходит именно новых данных, новые данные добавляются к старым

IgorNG,

Блин (T_T) хреново у меня получается объяснять, я думал ты меня понял по картинкам моим

AndreTM,

Прошу прощения господа (V_V) просто я новичок в этом деле и чет пока кое где точно не могу определить возможности этой программы, вот и экспериментирую