I am using the xbrowse command to add columns but it brings me empty the browse. My datasource is defined as follows
- Code: Select all Expand view
cSql:= "SELECT * FROM MXCTAALM"
oTb:= TMSQuery():New( oAp:oMySql, cSql )
- Code: Select all Expand view
@ 0,0 XBROWSE oBrw OF oWnd ;
DATASOURCE oTb;
LINES CELL AUTOSORT
WITH OBJECT oBrw
:SetMySql( oTb, .F. ) // USAR .F.
:nHeaderLines := 1
:nFreeze := 0
:lHeader := .T.
:l2007 := .F.
:lFooter := .F.
:lHScroll := .T.
:nStretchCol := STRETCHCOL_LAST
:bClrHeader := {|| { 0, 14671839}}
:SetColor( nClrText, nClrPane1 )
:SetFont(oFont)
:bClrStd := {|| {nClrText, IIF( oBrw:KeyNo() % 2 == 0, nClrPane1, nClrPane2 ) } }
:bLDblClick := {|| Editar( oBrw, .F. ) }
:bChange := {|| MuestraRegis( oBrw, cMsg )}
END
oBrw:CreateFromCode()
oWnd:oClient = oBrw
convertir gif en imagenes
It is a table of 4 columns which it shows and 6 records which it shows but empty.
How do I resolve this incident?