Artiom, у тебя не присвоен RecordSource у Grid'а. Поэтому объекта Column у него нет. Поэтому, либо присвой этому свойству значение алиаса таблицы, либо пиши так:
| Код |
frmClForm = CREATEOBJECT('Form') && Create a Form
WITH frmClForm
.Closable = .T. && Disable the Control menu box
.MaxButton = .F.
.MinButton = .F.
.Autocenter = .T.
.top = 20
.Caption = "Список"
.Height = _SCREEN.height - 80
.Width = 400
.WindowState = 0
.WindowType= 1
.AddObject('grdGrid1','Grid') && Add Grid control
WITH .grdGrid1
.Width = 400
.Height = _SCREEN.height - 80
.ReadOnly = .T.
.Visible =.T. && Grid control visible
.DeleteMark =.F.
.RowHeight = nRowHeight
.FontName = 'Courier New Cyr'
.FontSize = 9
.FontItalic = .T.
.AddColumn(1)
.Column1.Header1.Caption = "Колонка1"
.AddColumn(2)
.Column2.Header1.Caption = "Колонка2"
.Column1.Width = 50
.Column2.Width = 350
.ColumnCount = 2
.SetAll("DynamicForeColor","IIF(pr_mode = 0,RGB(0,0,0),RGB(255,0,0))","Column")
ENDWITH
ENDWITH
|
Добавлено @ 14:51
Цитата(Artiom @ 8.6.2006, 15:40  ) | И еще сразу вопрос про грид.
пытаюсь отобразить в нем таблицу |
Во-первых, ты сразу же закрываешь свой курсор
| Цитата(Artiom @ 8.6.2006, 15:40 ) | USE CLIENTS
SELECT cl_num,cl_name FROM clients INTO CURSOR tmpcur NOFILTER
COUNT TO nRowCount
USE |
Во-вторых, код
| Цитата(Artiom @ 8.6.2006, 15:40 ) | cl_form.grid1.recordsourcetype = 1
cl_form.grid1.recordsource = 'tmpcur' |
надо прописать в методе Init формы cl_form. если оставить как есть тогда надо следить, что бы форма не была модальной.
В третьих, вот код
| Код |
USE CLIENTS
SELECT cl_num,cl_name FROM clients INTO CURSOR tmpcur NOFILTER
IF _tally = 0
MESSAGEBOX("No records")
return(-1)
ENDIF
DO FORM cl_form
cl_form.grid1.recordsourcetype = 1
cl_form.grid1.recordsource = 'tmpcur'
|
|