Today all my reply attempts on UT failed. Anyone capable of replying pls forward these replies to their targets. TIA

Threat #429474
"Record number from an index"

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

Threat #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