TxBrowse ou TcBrowse

[carlosmsi]

Boa Tarde.

Sou leigo em relacao ao Browse

Gostaria de Saber compo alterar dados do campo.

Estou montando um Gerador de Banco de Dados.Um DBU

Onde vai Criar o Dbf entao eu preciso definir os

Campos, Tamanho, Tipo.

Nao estou conseguindo alterar o campo no TxBrowse

Tenho um arquivo dbf e gostaria de alterar diretamente

os campos. consegui deixar em modo para editar mas quando

dou enter ele nao altera o campo.

exemplo:

Criei Assim

DEFINE DIALOG oDlg TITLE "Browse Criação dos Campos" ;

FROM 0,0 TO 23,75 ;

STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;

WS_MAXIMIZEBOX, WS_MINIMIZEBOX )

@ 01,01 COLUMN BROWSE oBrw ;

COLORS BrwText, BrwBack ;

Alias &wAlias. ;

FONT oGetFnt ;

SIZE 272, 150 OF oDlg

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->NAME HEADER "NOME" ;

PICTURE "@!" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->TYPE HEADER "TYPE" ;

PICTURE "@!" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->WIDTH HEADER "WIDTH" ;

PICTURE "999" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DEC HEADER "DEC" ;

PICTURE "99" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DESCRICAO HEADER "DESCRICAO" ;

PICTURE "@!" ALIGN LEFT EDITABLE

oBrw:lCellStyle = .t.

oBrw:bLDblClick = { | nRow, nCol | EditCell( oBrw, nRow, nCol ) }

oBrw:nLineStyle := 1 // LINHA

oBrw:REFRESH()

[carlosmsi]

Boa Tarde.

Sou leigo em relacao ao Browse

Gostaria de Saber compo alterar dados do campo.

Estou montando um Gerador de Banco de Dados.Um DBU

Onde vai Criar o Dbf entao eu preciso definir os

Campos, Tamanho, Tipo.

Nao estou conseguindo alterar o campo no TxBrowse

Tenho um arquivo dbf e gostaria de alterar diretamente

os campos. consegui deixar em modo para editar mas quando

dou enter ele nao altera o campo.

exemplo:

Criei Assim

DEFINE DIALOG oDlg TITLE "Browse Criação dos Campos" ;

FROM 0,0 TO 23,75 ;

STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;

WS_MAXIMIZEBOX, WS_MINIMIZEBOX )

@ 01,01 COLUMN BROWSE oBrw ;

COLORS BrwText, BrwBack ;

Alias &wAlias. ;

FONT oGetFnt ;

SIZE 272, 150 OF oDlg

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->NAME HEADER "NOME" ;

PICTURE "@!" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->TYPE HEADER "TYPE" ;

PICTURE "@!" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->WIDTH HEADER "WIDTH" ;

PICTURE "999" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DEC HEADER "DEC" ;

PICTURE "99" ALIGN LEFT EDITABLE

ADD COLUMN TO BROWSE oBrw DATA &wAlias.->DESCRICAO HEADER "DESCRICAO" ;

PICTURE "@!" ALIGN LEFT EDITABLE

oBrw:lCellStyle = .t.

oBrw:bLDblClick = { | nRow, nCol | EditCell( oBrw, nRow, nCol ) }

oBrw:nLineStyle := 1 // LINHA

oBrw:REFRESH()

[Theotokos]

Eu utilizo xBrowse e faço assim para poder alterar

oBrw:aCols[6]:nEditType := EDIT_GET

oBrw:aCols[6]:bOnPostEdit := {|o,x| RecLock(),FieldPut( FieldPos("VA_DATVENC"), x ),UnLockRecord() }

oBrw:aCols[6]:cEditPicture := "99/99/9999"

oBrw:aCols[6]:bEditValid := {|| !Empty(&cArquivo->VA_DATVENC), ;

nPosTmp:= RecNO(), oBrw:Refresh(.t.), DbGoTo(nPosTmp), .t. }

*

oBrw:aCols[4]:nEditType := EDIT_GET

oBrw:aCols[4]:bOnPostEdit := {|o,x| RecLock(),FieldPut( FieldPos("VA_VALPRES"), x ),UnLockRecord() }

oBrw:aCols[4]:cEditPicture := "@E 9,999.99"

oBrw:aCols[4]:bEditValid := {|| !Empty(&cArquivo->VA_VALPRES), ;

nPosTmp:= RecNO(), oBrw:Refresh(.t.), DbGoTo(nPosTmp), .t. }

id=code>id=code>