Pues eso, estoy viendo como pegar en xbrowse
Me que de en la versión Sep/2010
y se supone que si lo debe de hacer pero no me funciona
Alguien podría tirarme un hilo de como hacerlo
- Code: Select all Expand view
oBrow := TxBrowse():New(oDlg1)
PoneFormasBrowse(oBrow)
oBrow:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrow:lFastEdit := .T.
oBrow:lCanPaste := .T.
oBrow:lAutoAppend := .T.
oBrow:cAlias := cFile
oBrow:SetRDD(,,aFieldA)
oBrow:aCols[01]:nWidth := 85
oBrow:aCols[02]:nWidth := 385
oBrow:aCols[03]:nWidth := 85
oBrow:aCols[04]:nWidth := 85
oBrow:aCols[05]:nWidth := 85
oBrow:aCols[01]:nEditType := EDIT_GET
oBrow:aCols[02]:nEditType := EDIT_GET
oBrow:aCols[03]:nEditType := EDIT_GET
oBrow:aCols[04]:nEditType := EDIT_GET
oBrow:aCols[05]:nEditType := EDIT_GET
oBrow:lFooter := .T. // Sí queremos línea de footer
oBrow:nFooterHeight := 30 // Altura del footer
oBrow:nFooterLines := 2 // Número de líneas en el footer
oBrow:CreateFromResource( 101 )
Este es mi prg del browse
y al momento de pegar (Ctrl-v)
Me marca error :
Array acces en la línea 6154 de TXBROWSE
Saludos
Solo fue modificar un poco la clase Xbrowse