Mr. Rao:
I'm looking for a xBrowse example, whit cells edit, add new rows and using a record set, where can I found it?
I've searched this forum but the examples are for DBFs or Array
Regards and thanks so much
REDEFINE XBROWSE oBrw ID 200 OF oDlg RECORDSET oRsCli ;
COLUMNS "CLI_NOM","CLI_RFC","CLI_CLI","CLI_DDC" ;
HEADERS "Razón Social","Reg.Fed.Con.","Número","Dias" ;
COLSIZES 400 ;
LINES FASTEDIT AUTOSORT FOOTERS CELL
WITH OBJECT oBrw
:l2007 := (.F.) // Sin esta línea no toma los colores de Head & Foot
:lFooter := (.T.)
:nHeaderHeight := 30
:nRowHeight := 22
:bClrHeader := { || {CLR_WHITE,CLR_BLACK} }
:nRecSelColor := { || {nRGB(CLR_BLACK),nRGB(CLR_WHITE)} }
:bClrFooter := { || {CLR_WHITE,CLR_BLACK} }
:bClrStd := {|| IIF(oBrw:KeyNo() % 3 == 0,{ CLR_BLACK, RGB(217,217,255)},{CLR_BLACK,CLR_WHITE}) }
:bClrSel := {|| { CLR_WHITE, CLR_BLACK} }
:bClrSelFocus := {|| { CLR_WHITE, CLR_HBLUE} }
:nRecSelColor := nRGB(217,217,255)
END
WITH OBJECT oBrw:aCols[01]
:nEditType := EDIT_GET
:cEditPicture := "@!K"
END
WITH OBJECT oBrw:aCols[02]
:nEditType := EDIT_GET
:cEditPicture := "@R !!!!-999999-!!!"
END
WITH OBJECT oBrw:aCols[03]
:nEditType := EDIT_GET
:nDataStrAlign := 1 // 1=Der,2=Cen,3=Izq
:cEditPicture := "99999"
END
WITH OBJECT oBrw:aCols[04]
:nEditType := EDIT_GET
:nDataStrAlign := 1 // 1=Der,2=Cen,3=Izq
:cEditPicture := "999"
END
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 19 guests