FiveTech Software tech support forums

... "BR" )} ACTIVATE WINDOW oWnd return nil Function Test() local oDlg, oBrw, oFont, nWild := 2 local cList, aFlds, aHdrs local nChoice, uDataSource local cAlias,oWndChild cList := "First,Last,Street,State,HireDate" cAlias = cGetNewAlias( cFileNoExt("CUSTOMER.DBF" ...

... this evening I saw on 7471 (xbrowse) I insert the same text on xbrowse as the fields @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ; COLUMNS aFlds HEADERS aFlds ; DATASOURCE uDataSource AUTOSORT CELL LINES NOBORDER but the search take the name of the Items of combobox https://i.postimg.cc/sgQXK08t/hj.jpg

... that name to oBrw:cFilterFld. Rao, U're right but on sample test (xbincflt.prg) I assign the field name on oBrw:cFilterFld with oBrw:cFilterFld:=aFlds[::nat] , what is wrong ? @ 10, 10 COMBOBOX oBrw:cFilterFld ;      ITEMS aHdrs ;      ON CHANGE (   CUST->(OrdSetFocus(::nat)),;  ...

... 6. AddIndex( cFile, cTag ) Adds new index file. Use with NTX files 7. AnsiToOem() Internal Internally used when ::lOemToAnsi is .T. 8. Append( [aFlds], [aVals] ) --> lSuccess Usage 1: Append() without parameters: Appends a blank record and returns success This usage is consistent with all ...

... for edit/save Note: RecordObject is TDataRow object - Edit( [cFieldList], [lNew] ) --> Edit Dialog for editing/saving a record - Update( aFlds, aVals ) --> lSuccess Modifies an existing record, writing aVals to corresponding aFlds Alternative Syntaxes: Update( cFieldList, aVals ) --> ...

... for edit/save Note: RecordObject is TDataRow object - Edit( [cFieldList], [lNew] ) --> Edit Dialog for editing/saving a record - Update( aFlds, aVals ) --> lSuccess Modifies an existing record, writing aVals to corresponding aFlds Alternative Syntaxes: Update( cFieldList, aVals ) --> ...

... read from oGRid the fields and the headers because it the user change the state ( hide a column) I wish use // to calc the fields and the headers aFlds :=array( nLen ) aHdrs:= array( nLen ) FOR n = 1 TO nLen aFlds [ n ]:= oGrid:aCols[ n ]:cExpr aHdrs [ n ]:= oGrid:aCols[ n ]:cHeader NEXT instead ...

... change the test sample xbincflt.prg I wish insert on a one menupopup all comboboxes it is possible ? type MENU oMenuSearch POPUP For i := 1 to Len(aFlds) bAction := ... MENUITEM RTrim(aFlds[i]) BLOCK bAction Next SEPARATOR MENUITEM "Starting With" MENUITEM "Containing" endmenu

cQuery += aFlds[ i, DBS_NAME ] + " NUMERIC ( " + NTRIM( aFlds[ i, DBS_LEN ] + 1 ) + ", " + NTRIM( aFlds[ i, DBS_DEC ] ) + " ), " Should be : cQuery += aFlds[ i, DBS_NAME ] + " NUMERIC ( " ...

Hello, I have a problem with a numeric column , using CASE cType = "N" cQuery += aFlds[ i, DBS_NAME ] + " NUMERIC ( " + NTRIM( aFlds[ i, DBS_LEN ] + 1 ) + ", " + NTRIM( aFlds[ i, DBS_DEC ] ) + " ), " to build the table. I tryed ...

... key cSQL += ...... This can not be done with a arbitrarily choosen dbf. Enrico has a routine to build this statement.     FOR i = 1 TO LEN( aFlds )                cType = aFlds[ i, DBS_TYPE ]                IF cType <> "M" .OR. cMot <> "MYSQL"  ...

... used Hernans wbrowse class adopted for mine needs . Then I could create array for codeblocks in needfuls sequence and oBrw:bLine := { || brw_line( aFlds) } works fine ... OK , let say that I retored needful sequence columns for client . From MySql server query I can to do : aDgr := grd_set( cTbl, ...

... "Send16" ) :AddResource( "" ) :bStrData := {|| "" } :bBmpData := {|| if( ( dbfFamilia )->lSelDoc, 1, 2 ) } //::aFlds[ n ] :lBmpStretch := .f. :cHeader := "V" :nWidth := 17 end with Muchas Gracias. Manuel Calero Solís. http://www.apolosoftware.com

... // Creacion de columnas ---------------------------------------------------- for n := 1 to ( ::nFlds ) oCol := ::oBrw:AddCol() if Valtype( Eval( ::aFlds[ n ] ) ) == "N" oCol:bBmpData := ::aFlds[ n ] else oCol:bStrData := ::aFlds[ n ] end if No me da errores pero no me muestra el bitmap, ...

I had a same problem in FW1.9.2 and I solved it by replacing aGets array with vars: for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] xVar="x"+strzero(nGt,3) @ nRw, nCol GET oGets[ nGt ] VAR &xVar ..... next I hope that it works in FW for Harbour too Yes Goran , your sample ...