Hello,

haven't expected this myself but actually it works nice, but only in VFP8 with CursorAdapter Class:

PUBLIC bla
bla = CREATEOBJECT('oTest')
bla.CursorFill(.T.,.F.)
BROWSE

DEFINE CLASS oTest AS CursorAdapter

	Alias = "v_test"
	DataSourceType = "ODBC"
	SelectCmd = "SELECT o.orderid, o.shipvia, o.freight, o.shipvia*o.freight AS NonSense FROM orders o"
	CursorSchema = "pk_adress I, shipvia I, freight N(10,2), NonSense I"

	FUNCTION Init
		THIS.DataSource = SQLCONNECT('mssql','user','pwd')
	ENDFUNC
	
	FUNCTION Destroy
		SQLDISCONNECT(THIS.DataSource)
	ENDFUNC
	
ENDDEFINE

Regards

Christian