Konu: HierarchicalFlexGrid ve MSDataShape
http://www.fox4um.com/viewtopic.php?id=142
Burada uzun uzadıya konuşuldu.
Örneklerde süper. ve internette heryerde aynı kod var farklı bir kod yok.
1. ben bu kodu aşağıdaki hale getirdim. ve form un init ine yazdım.
2. form a olecontrol den "MSHierarchicalFlexGridLib.MSHFlexGrid.6" yı ekledim ve ismin "Hflex" yaptım. çalışıyorda.
sorun 1:
bu kodun bağındaki ado bağlantısını yapmak zorundamıyım normal girdlerde olduğu gibi bir cursor veya table veya sorguyu yazacağım bir yer yokmu
soru 2:
strshp =... satırındaki shape table kullanımını hiç bir yerde bulamıyorum. nasıl yapabilirim.
soru 3:
en baştaki linkteki örnekleri dosya haline nasıl dönüştürebilirim?
soru 4:
ADO nedir? (sanırım en zoru bu)
testdataloc = _samples+"data\testdata.DBC"
Local orecordset,oconnection, strcn, strshp
strcn = [Provider=MSDataShape;Persist Security Info=False;]+;
[Data Source=]+testdataloc+[;Data Provider=VFPOLEDB]
orecordset = Createobject("adodb.recordset")
oconnection = Createobject("adodb.connection")
With oconnection
.provider = "MSDataShape"
.connectionstring = strcn
.Open
Endwith
strshp = [Shape Table customer Append ( (Shape Table orders Append (Table orditems Relate order_id To]+;
[ order_id)) RELATE cust_id To cust_id )]
With orecordset
.activeconnection = oconnection
.Source = strshp
.Open
Endwith
With This.hflex
.Datasource = orecordset
.mergecells = 3
.gridcolorband(1) = Rgb(255,0,0)
.gridcolorband(2) = Rgb(0,0,255)
.gridcolorband(3) = Rgb(0,255,0)
.colwidth(0,0) = 300
.collapseall
Endwith
thisform.Refresh