>Today all my reply attempts on UT failed. Anyone capable of replying pls forward these replies to their targets. TIA
>
>Thread #429474
>"Record number from an index"
>

lcKey = key()
>select &lcKey, recno() as Physical from my table order by 1

>
>
>Thread #429434
>"Problems with Flexgrid"
>Jorge,
>This works when you bind to a MS datagrid control but not MSFlex or MSHFlex control as I could find. However with MSFlex and MSHflex grid controls I could bind the datasource if I put a MS Data Control on form. Below is the code of DataControl.Init :
>
>

#define TESTDATALOC C:\TEMP\testdata.DBC
>
>strCn =	[Provider=MSDataShape.1;Persist Security Info=False;]+;
>  [Data Source="Data Provider = MSDASQL;]+;
>  [DSN=Visual FoxPro Database;UID=;SourceDB=TESTDATALOC;]+;
>  [SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;]+;
>  [Deleted=Yes;";Data Provider=MSDASQL ]
>
>			
>strShp = [SHAPE { select customer.cust_id, Company, ]+;
>  [   orders.order_id, order_date, order_net, shipped_on, ]+;
>  [   line_no, prod_name ] +;
>  [ from customer ]+;
>  [      left outer join orders ]+ ;
>  [        on customer.cust_id = orders.cust_id ] +;
>  [      inner join orditems ]+ ;
>  [        on orditems.order_id = orders.order_id ] +;
>  [      inner join products ]+ ;
>  [        on orditems.product_id = products.product_id } ]
>			
>with this
>  .CommandType = 1
>  .ConnectionString = strCn
>  .RecordSource = strShp
>endwith
>
>with ThisForm.Flex
>  .Datasource = This.object
>  for ix = 1 to .Cols - 1
>    .MergeCol(ix) = .t.
>  endfor
>  .MergeCells = 3
>endwith	
>thisform.DoSort(ThisForm.Flex)

>
>Cetin

---

Cetin,

I'll do it.

PS. it is Tread with a d ;-)