А возможно ли такое в VFP9, на форме грид, показывается таблица....я делаю таблице Pack или Zap, естественно всё пропадает..а нельзя ли, чтоб не перерисовывать грид, где-нибудь, как-нибудь запомнить его свойства методы сделать PAck ZAP, и затем восстановить этот грид...

Анатолий Широков,

Анатолий Широков,

Не, создавать программу(класс) грида(типа Contole Sourse ="" и т.д.), я могу и после выполнения команды ZAP, и до выполнения в каком нибудь новом методе формы (_Grid), а вот чтоб именно в массив загнать куда-нибудь свойства и методы...но я понял, просто не получится, а сложности, ну их на фиг....

проходящий.,

Даже ведущие соглашаются что у Locate тоже есть плюсы(когда таблица маленькая) перед Seek, хотя и рекомендуют для быстроты Seek, так и в этом случае Pack(Zap)<=>delete on, есть что-то в них такое, что привлекает неведующий(блин, или неведущий) народ

Спасибо всем за замечания, рекомендации и подсказки...

Анатолий Широков,

Я создал форму, записал как класс, открыл её Class Browser, скопировал код, открыл форму и в метод Load скопировал код, но он выдаёт почему то ошибку :-(

DEFINE CLASS class_name AS grid
ColumnCount = 1
Height = 121
Left = 72
RecordSource = "x"
Top = 48
Width = 277
Name = "Grid1"
Column1.ControlSource = "x.kod"
Column1.Width = 75
Column1.Name = "Column1"


ADD OBJECT class_name.column1.header1 AS header WITH ; <- Вот в этой строке ошибка....
Caption = "Kod", ;
Name = "Header1"


ADD OBJECT class_name.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ENDDEFINE

Или этот код надо было сбросить в отдельный prg-файл, а как в методе load(или Init) указать, чтоб он за grid обращался к этому prg-шнику..

q1w1e1Анатолий Широков,

DEFINE CLASS class_name AS grid
ColumnCount = 1
Height = 121
Left = 72
RecordSource = "x"
Top = 48
Width = 277
Name = "Grid1"
Column1.ControlSource = "x.kod"
Column1.Width = 75
Column1.Name = "Column1"


ADD OBJECT class_name.column1.header1 AS header WITH ; <- Вот в этой строке ошибка....
Caption = "Kod", ;
Name = "Header1"


ADD OBJECT class_name.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ENDDEFINE

Вот этот код я поместил в c_lass.prg (ну не импонирует мне, когда код хранится в dbf файле с расшир. scx,vcx,dbc, у них часто заголовки слетают) фиг с ними с классами адаптируем классы под модульное программирование...так вот в методе Load формы, я пишу следушие..

PUBLIC myclass
SET PROCEDURE TO c_lass && Это то что сверху
thisform.AddObject("MyGrid", "class_name")
и выходит ошибка....как узнать, это ошибка формы или процедуры на которую указывает команда(SET PROCEDURE TO c_lass) , сразу не определишь(если бы была подпрограмма, то сразу бы встало на ту строку, где ошибка), иду в c_lass.prg компилирую и выходит опять же в той строке ошибка....вот собственно и вопрос почему в той указанной строке в файле c_lass.prg выходит ошибка....