Este es un truco bastante solicitado .... Con VFP 8 o superior ya es posible hacerlo más fácilmente. Aquí tienes 2 formas de hacerlo.

En el AfteRowColchange del Grid digita lo siguiente:

Lparameters nColIndex

Thisform. LockScreen = .T.

This.Columns(1).ColumnOrder
=This. LeftColumn

Thisform.LockScreen
= .T.

Lparameters nDirection

Thisform. LockScreen= .T.

If nDirection > 3

This .Columns(1). ColumnOrder = This.LeftColumn

Endif

Thisform.LockScreen= .F.

OTRA FORMA

nPos =This. ActiveColumn-This.RelativeColumn

If nPos>0

This.COlumn1.ColumnOrder=nPos+1

Else

This.COlumn1.ColumnOrder=1

Endif

Generalmente los Messagebox solo se muestran dentro del _Screen de VFP pero existe un valor no documentado que hace que el Messagebox se muestre encima de todas las ventanas de Windows.

Ejemplo básico de como utilizar el objeto CursorAdapter para realizar consultas a una base de datos

oCA = Createobject("CursorAdapter")

cCodigo = "0001"

cCmdSQL = "select * from Tablas Where Codi = ?cCodigo"

 

oCA.SelectCmd= cCmdSQL

oCA.DataSourceType ="ODBC"

oCA.Datasource =
SQLConnect("MIDSN")

* oCA.DataSource = SQLStringConnect("cadenaconexión")

 

If oCA.Datasource< 1

    ?"Error"

Else

    oCA.CursorFill()

    Browse

Endif

Una truquito que te muestra una barra de progreso cuando esta indexando una tabla.

Public oForm

oForm =Createobject("Form")

Set Talk Off

With oForm

    .Caption=""

    .AutoCenter= .T.

    .Width= 375

    .Height= 31

    .Visible= .T.

nbsp;   .ControlBox= .F.

    .AddObject("oBarra","OleControl","mscomctllib.progctrl.2")

 

    With .oBarra

nbsp;       .Visible= .T.

        .Left= 4

        .Top= 5

        .Width= 368

       .Height= 20

        .Min= 1

    Endwith

Endwith

Create Cursor MiTabla (Campo C(12))

For i = 1To
10000

    Append Blank

Endfor

 

nTotReg =
Reccount("MiTabla")

Locate

oForm.oBarra.Max= nTotReg

Index On Progreso(Campo, Recno(), nTotReg) Tag Campo

oForm.Release

Function Progreso(Campo, nRecno, nTotReg)

    cProg = Transform(Round((nRecno/nTotReg)*100,0)) +
"%"

    oForm.Caption="Progreso " + cProg

nbsp;   oForm.oBarra.Value= nRecno

    Return Campo

Endfunc

Muy buen ejemplo que te explica como conectarte a una DBC utilizando el proveedor de VFP.

oCon =
CreateObject("ADODB.Connection")

oRst = CreateObject("ADODB.RecordSet")

 

cCadCon = "Provider=VFPOLEDB.1;"
;

        +
"data source=c:
utaasedatos.dbc"

oCon.open(cCadCon)

cSQL = "select * from Tabla"

DO While !oRst.Eof

  cResult =
""

  For Each oCmp
in
oRst.Fields

    cResult =
oCmp.Value + " - " + cResult

  Next

  ?cResult

  oRst.Movenext

EndDo