>yes Çetin abi. It will be readonly. Týpký header gibi. Do you remember your program you showed me ? In the "set appointmens" module, you used two grids working together syncronized. Alttaki gridin 1. colonu sabitti. Aslýnda alttaki gridi scroll yaptýðýnda üsttekinin nasýl onunla paralel hareket edebildiðini de anlatýrsan harika olur tabi ama. Þimdilik Sabit kolon bana yeter sanýrým. :))
Arda,
For others benefit going on in English :)
Then use Activex MSHFlexgrid. Sample :
#Define TESTDATALOC C:\ddrive\TEMP\testdata.DBC
oForm = createobject('myForm')
oForm.Show
Read events
Define CLASS myform AS form
Top = 0
Left = 0
Height = 450
Width = 250
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
Add OBJECT hflex AS olecontrol WITH ;
Top = 0, ;
Left = 0, ;
Height = 420, ;
Width = 250, ;
Name = "Hflex", ;
OleClass = 'MSHierarchicalFlexGridLib.MSHFlexGrid'
Procedure Init
Local oRecordset,oConnection, strCn, strShp
strCn = [Provider=MSDASQL.1;Persist Security Info=False;]+;
[Extended Properties=]+;
["DSN=Visual FoxPro Database;UID=;]+;
[SourceDB=TESTDATALOC;SourceType=DBC;]+;
[Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"]
strShp = [select customer.cust_id, Company, orders.order_id, ]+;
[ order_date, orditems.product_id from customer ]+ ;
[ inner join orders ]+;
[ on customer.cust_id = orders.cust_id ]+;
[ inner join orditems ]+;
[ on orditems.order_id = orders.order_id ]
oRecordset = CreateObject("adodb.recordset")
oConnection = CreateObject("adodb.connection")
With oConnection
.Provider = "MSDataShape"
.ConnectionString = strCn
.Open
Endwith
With oRecordset
.ActiveConnection = oConnection
.Source = strShp
.Open
Endwith
With this.hflex
.Datasource = oRecordset
.FixedCols = 2
.ColWidth(0,0) = 0
For ix = 1 to .Cols - 1
.MergeCol(ix) = .t.
Endfor
.Mergecells = 3
Endwith
Endproc
Procedure QueryUnLoad
Clear events
Endproc
Enddefine
PS: Set appointments taki burasi icin cok karisik. Beni ziyaret et.
Cetin