me da el siguiente error

[PILO]

me da el siguiente error
***************************** Registro de errores *****************************
Fecha: 29-10-2006
Hora: 12:37:42
Memoria libre: 516304
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1002
Estado: .F.
Descripción: Alias does not exist
Operación:
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TDBFDATASET:GETTAGS (1101)
TFEXPLOTA:FORMINITIALIZE (40)
TFEXPLOTA:ONINITIALIZE (0)
TFEXPLOTA:NEW (183)
TMENUSRMPILO:MENU1ITEM1_1CLICK (36)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (213)
TMENU:DOACTION (218)
TMENUSRMPILO:WMCOMMAND (874)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (20)
Cuando salgo del error
me sale una mantalla de informacion " XAILER TCdxDataSoure: 1 files not closed correctly"
El metodo donde esta el error es este en la linea marcada:
METHOD FormInitialize( oSender ) CLASS TFexplota
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set delete off
oSortMenu := TMenu():Create( Self, .t. )
::aTags := ::odbfDataSet1:GetTags()
::odbfDataSet1:OrdSetFocus("")
FOR nFor := 1 to len( ::aTags )
WITH OBJECT TMenuItem():New( oSortMenu )
:cText := "Order by " + ::aTags[ nFor ]
:Cargo := nFor
:OnClick := {|o| ::nTag := o:Cargo }
:Create()
END
NEXT
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:lList := .t.
:lAutoSize := .t.
:Create()
//::oTagBtn := :AddButton( "", "BMP_SORT",,, "Set Order", {|| ::nTag++ }, oSortMenu )
::nTag := 1
WITH OBJECT ::oFilterBtn := :AddButton( "", "Filtrar",,, "Filtrado", {|| ::Filter() } )
:lChecked := .f.
END
:AddSeparator()
:AddButton( "", "Primero" ,,, "Primer registro", {|| ::oBrw:GoTop() } )
:AddButton( "", "Anterior" ,,, "Anterior", {|| ::oBrw:GoUp() } )
:AddButton( "", "Siguiente",,, "Siguiente", {|| ::oBrw:GoDown() } )
:AddButton( "", "Ultimo" ,,, "Ultimo registro", {|| ::oBrw:GoBottom() } )
:AddSeparator()
/*:AddButton( "", "BMP_APPEND",,, "Append", {|| ::AddNew() } )
:AddButton( "", "BMP_EDIT",,, "Edit", {|| ::Edit() } )
:AddButton( "", "BMP_DELETE",,, "Delete", {|| ::Delete() } )
:AddSeparator()
:AddButton( "", "XA_BMP_PRINTER",,, "Print", {|| ::Report() } )
*/:AddButton( "", "Salir",,, "Salir", {|| ::Close() } )
END
WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
:oControl := ::oToolBar
:Create()
END
WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
:oBitmap := "lupa16"
:OnBtnClick := {|o| ::oBrw:Seek( o:Value ), nil }
:nMaxLength := 100
:Create()
::oBrw:oSeek := ::oEdiBusqueda
END
WITH OBJECT TRebarBand():New( ::oRebar1 )
:cText := "Búsqueda:"
:oControl := ::oEdiBusqueda
:Create()
END
RETURN Nil
--

[jfgimenez]

PILO,
revisa bien el componente oDbfDataSet1. Parece que aún no está abierto
cuando se ejecuta esa línea del programa.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[PILO]

Lo tengo que abrir cuando se inializa el formulario
como se hace por favor,
La base de datos esta en c:srmlibroexplota.dbf y la tengo que habre con
cdx

[jfgimenez]

PILO,
> Lo tengo que abrir cuando se inializa el formulario
> como se hace por favor,
> La base de datos esta en c:srmlibroexplota.dbf y la tengo que habre con
> cdx
Si tienes todas las propiedades asignadas en modo diseño (desde el IDE), tan
sólo tendrás que hacer:
::oDbfDataSet1:Open()
--
Un saludo,
José F. Giménez
http://www.xailer.com