... Local anchos,j,lFormato:=.F. //Local Mas_n:={} local aTable:={} local nRow,ncol Local oRtf,aMarca, cOutFile :="Plata.RTF", Sob1 Local aFldNames:= {" Ok ", " 2", " 3", "4","5","6", "7", "8", "9"} ...
... Local anchos,j,lFormato:=.F. //Local Mas_n:={} local aTable:={} local nRow,ncol Local oRtf,aMarca, cOutFile :="Plata.RTF", Sob1 Local aFldNames:= {" Ok ", " 2", " 3", "4","5","6", "7", "8", "9"} ...
... registro, por lo que comentando estas líneas (marcadas con *) en XBrowse.prg el problema se resuelve METHOD SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) CLASS TXBrowse :::::: else if ( ( ::cAlias )->( RDDName() ) == "DBFCDX" ) * if ( ::cAlias )->( LASTREC() ) > 10000 ...
... // Se define el MESSAGE de una columna para tomar y dar valores. static function GenDataField( oADODb, nPos ) Local cNameMethod := oADODb:aFldNames[ nPos ] //#ifdef __HARBOUR__ local nClassH := oADODb:ClassH __clsAddMsg( nClassH, cNameMethod, ; { | oADODb | oADODb:_FieldGet( nPos ) }, ...
DATAS 1. aBuffer ( ReadOnly Type: "A" ): Array holding the field values of the current record when ::lBuffer is .T. 2. aFldNames ( ReadOnly Type: "A" ): Array containing field names of DBF 3. aStruct ( ReadOnly Type: "A" ): Structure of the table, similar ...
... ::bGoBottom := {|| If( ::oRs:RecordCount() > 0, ::oRs:MoveLast(), nil ) },; Can you please verify at METHOD SetAdO( oRs, lAddCols, lAutoOrder, aFldNames ) CLASS TXBrowse that oRs is not nil?. Thank you.
... with these modifications: 1. delete all columns as in your code. then oBrw:lAdjusted := .f. // new oBrw:SetADO( oRsNew ) // You may use last param aFldNames if you want specific fields // Here you insert other code like changing bEditValue, SetCheck() etc. Finally, oBrw:Adjust() // new I like your ...
Creo que usando el método SetRDD, este es el prototipo: SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) Ningun parametro es obligatorio asi que haz la siguiente prueba: SELECT Cliente oBrw:setRDD() oBrw:refresh() Luego podrás probar con parametros :D En los ejemplos ...
... DATA cAlias, cFile, cDriver AS String INIT "" DATA lReadOnly AS LOGICAL INIT .f. DATA lOemAnsi DATA lTenChars AS LOGICAL INIT .t. DATA aFldNames AS Array DATA oBookMark AS OBJECT DATA lBlank AS LOGICAL INIT .f. METHOD New( cAlias ) CONSTRUCTOR METHOD Activate() METHOD AddIndex( cFile, ...
... " ) I rebuilt library from source you send me oServer:InsertFromDbf("table_name, "alias_name", alias->(reccount()), aFldNames ) gives me an error : Error BASE/1102 Argument error: UPPER => UPPER line 0 => (b)TDOLPHINSRV_INSERTFROMDBF line 1586 => ASCAN line ...