Muchas gracias!
No funcionó Victor.
Le envio una foto adjunto de como lo tengo para ver si le ocurre algo nuevo.
Además parte del código que está en el Frm esto es VFP9 con Postgres.
SQLEXEC(cHandle, "select * from plantilla ", "cExesteDB")
IF SQLEXEC(cHandle, "select * from plantilla", "cExesteDB") <0
=Aerror(lError)
messagebo(lError(2))
EndIf
SQLEXEC(cHandle, "select * from areas", "cExistareas")
SQLEXEC(cHandle, "select * from brigada", "cBrigada")
SQLEXEC(cHandle, "select espec,nomb_esp from ccosto", "cExistccosto")
WITH Thisform
WITH .Combo1
.ColumnCount = 2
.ControlSource = "cExesteDB.coarea" && Areas
.BoundColumn = 2
.RowSourceType = 3 && SELECT
.RowSource = "SELECT nomb_area, coarea FROM cExistareas ORDER BY nomb_area INTO Cursor cDptoX"
.Format = "K"
.Style = 2 && Lista Desplegable
ENDWITH
*
.Refresh()
ENDWITH
*WITH Thisform
*WITH .Combo2
* .ColumnCount = 2
* .ControlSource = "cExesteDB.espec" && desde quincena el campo ccosto=espec
* .BoundColumn = 2
* .RowSourceType = 3 && SELECT
* .RowSource = "SELECT Nomb_esp, espec FROM cExistccosto ORDER BY Nomb_esp INTO Cursor c1DptX"
* .Format = "K"
* .Style = 2 && Lista Desplegable
*ENDWITH
*
*.Refresh()
*ENDWITH
thisform.list1.columncount=2
thisform.list1.rowsourcetype=6
thisform.list1.rowsource="cExesteDB.tarje,nombre"
thisform.combo3.columncount=2
thisform.combo3.rowsourcetype=6
thisform.combo3.rowsource="cExistccosto.Nomb_esp,espec"