млин. может скоро начну писать как Алекс = на класах..
но пока делаю вот так:
Thisform.gridrequery(Vil.id, Fam.id)
где gridrequery
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
PARAMETERS nVId, nFid
Thisform.grid1.RecordSource = ''
thisform.sqlconnector1.csqlstring = ;
"SELECT id, cNumber,
TRIM(both ' ' from Fio.cSurname||' '||Fio.cName||' '||Fio.cFather) AS cFio " + ;
"FROM fio " + ;
"WHERE ......"
thisform.sqlconnector1.spexecute(thisform.sqlconnector1.csqlstring, 'Bp')
IF thisform.sqlconnector1.spresult <> 1
thisform.sqlconnector1.sqlerror()
ELSE
WITH THISFORM.grid1
.ColumnCount = 2
.RecordSource = 'Bp'
.HeaderHeight = 50
**************************************************
.Column1.ControlSource = "Bp.cNumber"
.Column1.Width = 50
.Column1.Name = "Column1"
.Column1.ReadOnly = .T.
.column1.header1.Caption = "Номер"
.column1.header1.Alignment = 2
.column1.header1.WordWrap = .T.
.Column2.ControlSource = "ALLTRIM(Bp.cFio)"
.Column2.Width = 150
.Column2.Name = "Column5"
.Column2.ReadOnly = .T.
.column2.header1.Caption = "ФИО"
.column2.header1.Alignment = 2
.column2.header1.WordWrap = .T.
ENDWITH
ENDIF
и все работает, конечно этот код БОЛЕЕ громоздок, но разве в нем есть идеологические ошибки?????
Был бы рад услышать ваши мнения, только если что не так - подправьте... а то, пока мыслить классами как-то не получается... да и в примере
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
LOCAL m.nCount, m.i
m.nCount= 0
m.i= 0
lcNameAlias = '['+this.calias+']'
DIMENSION af[ 1 , 1 ]
this.RecordSource=''
cSql = this.csql
SQLExec(gnconnect,cSQL,&lcNameAlias)
SELECT &lcNameAlias
IF this.flag_poisk= 1
LOCATE FOR id=this.id
........................
я так понимаю имена хедеров грида == именам полей курсора... а это как-то некрасиво...
