Search found 19 matches: array1

Return to advanced search

Re: Dividir Un Array

... la sugerencia del Maestro Navarro. a la pregunta de Jesús. Efectivamente puede suceder que no sea divisible por 3, si menor a 3, asignare 1 array1 y 1 array2 y así sucesivamente, la idea seria dividirlos en partes iguales, si no se puede, se irán llenando como como preguntas, de array1, ...
by remtec
Sat May 22, 2021 5:12 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Dividir Un Array "SOLUCIONADO"
Replies: 5
Views: 564

Filtering xBrowse Arrays - SOLVED!

Dear All, I have two xbrowse (all arrays) oXbrArray1 has column 1 same with oXbrArray2 column 1. In short, its a Parent-child relationship. My question is.. How can I filter oXbrArray2 with elements equal to element (current row) of oXbrArray1 based ...
by fraxzi
Tue Mar 08, 2016 2:40 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Filtering xBrowse Arrays - SOLVED!
Replies: 18
Views: 6993

Re: create an arra from txt file

... )      oText:Skip()NEXToText:Close()RETURN( NIL )  Line 2 http://www.pflegeplus.com/IMAGES/Array1.jpg best regards Uwe :)
by ukoenig
Thu Jan 15, 2015 1:16 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: create an arra from txt file
Replies: 7
Views: 2428

Re: XBROWSE fiirst steps

... :=" " oCol:nFootStrAlign:= AL_RIGHT oCol:nWidth := 65 oCol := obrow:AddCol() oCol:bStrData := {||odb2:COLOR} oCol:cHeader := ALLTRIM(::array1[4]) ocol:nwidth:=150 oCol := obrow:AddCol() oCol:bStrData := { ||if(odb2:ldamage,"Y","")} oCol:cHeader := "报废Y/N" ...
by ShumingWang
Thu Apr 18, 2013 5:38 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: XBROWSE fiirst steps
Replies: 6
Views: 2073

Re: xBrowse array and move to a specific row

...  WITH OBJECT oLbx2      :nArrayAt      := nAt      :nRowSel       := nAt   END  http://img692.imageshack.us/img692/6003/array1.jpg
by Rick Lipkin
Thu Feb 28, 2013 9:31 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: xBrowse array and move to a specific row
Replies: 5
Views: 1320

Refresh SQL Select in Listbox

... = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" // Refresh routine... //----------------------------------------------------------------------------// static function SeekRfid( cSearch, ...
by cdmmaui
Wed Aug 22, 2012 2:29 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Refresh SQL Select in Listbox
Replies: 5
Views: 1305

Requirements for Connecting to MS SQL

... = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) // Disconnecting oSql:Close() oSql:=NIL RETURN (.T.) //------------------------------- ...
by cdmmaui
Wed Jul 11, 2012 6:33 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Requirements for Connecting to MS SQL
Replies: 6
Views: 1429

Listbox via MS SQL

... = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) // Disconnecting oSql:Close() oSql:=NIL RETURN (.T.) //------------------------------- ...
by cdmmaui
Wed Jul 04, 2012 5:16 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Listbox via MS SQL
Replies: 6
Views: 1732

Re: Para Daniel Garcia Gill

... el ejemplo de ADO esta funcional, usa la base de datos ejemplos de TDolphin Array Descagra EXE http://www.sitasoft.net/fivewin/samples/array1.zip #include "fivewin.ch"#include "xbrowse.ch"function main()   local oWnd   local oBrw   local aArray := {}  ...
by Daniel Garcia-Gil
Tue Jan 25, 2011 12:47 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Para Daniel Garcia Gill
Replies: 1
Views: 446

Re: Search directory for multiple files.

... ) 4. I open in a FOR NEXT each Dbf and add to the Array cList the File-Name and the Dbf-Field Info http://www.pflegeplus.com/pictures/array1.jpg #include "FiveWin.ch"#include "xBrowse.ch"#include "Directory.ch"FUNCTION  Main()local oDlg, oBrwlocal ...
by ukoenig
Sat Mar 13, 2010 1:54 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Search directory for multiple files.
Replies: 5
Views: 918

Re: Search directory for multiple files.

... ) 4. I open in a FOR NEXT each Dbf and add to the Array cList the File-name and the Dbf-Field Info http://www.pflegeplus.com/pictures/array1.jpg #include "FiveWin.ch"#include "xBrowse.ch"#include "Directory.ch"FUNCTION  Main()local oDlg, oBrwlocal ...
by ukoenig
Sat Mar 13, 2010 1:42 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Search directory for multiple files.
Replies: 5
Views: 918

tsbutton+xbrowse done a google like app help

... { nRow, nLeft, nbottom, nRight }, oCol:nDataStyle ) ofont3:DeActivate( hDC ) return nil FUNCTION weihu1701(cvar1,odb1,obrow) local ccol local array1:={} cvar1:=ALLTRIM(cvar1) cvar1:=STRTRAN(cvar1," ",",") ccol:=StrToken( cvar1, 1, "," ) AADD(array1,ccol) nfor:=1 while .t. cCol := StrToken( ...
by ShumingWang
Thu Jul 24, 2008 10:01 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: tsbutton+xbrowse done a google like app help
Replies: 1
Views: 869

... 2.oRect := obutton:GetRect() ACTIVATE MENU omenubill OF odlg at oRect:nTop, oRect:nLeft This always show menu at right area of nomodal dialog 3. array1:= GetCoors(obutton:hwnd) ACTIVATE MENU omenubill OF odlg at array1[1], array1[2] This shows menu at button proper position on nomodal dialog ...
by ShumingWang
Tue Jun 03, 2008 8:12 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: How to return a button itself ?
Replies: 3
Views: 692

How to return a button itself ?

... Redefine button obutton id 201 of odlg action fun1(obutton) This shows run time error : var obutton does not exists I want function fun1(obutton) array1:=arect(obutton) ACTIVATE MENU omenubill OF odlg at array1[1], array1[2] // build a menu at obutton nrow,ncol return Regards ! Shuming Wang
by ShumingWang
Tue Jun 03, 2008 3:52 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: How to return a button itself ?
Replies: 3
Views: 692

Pasa los array a string y comparalos. Por ejemplo:

cAntes = ASAVE(ARRAY1) Antes del browse
...
cDespues = ASAVE(ARRAY1) Después del browse
...
IF !( cAntes == cDespues )
HAN CANBIADO
ELSE
NO HAN CAMBIADO
ENDIF
...
by antolin
Thu Apr 17, 2008 4:39 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Comparar Array
Replies: 4
Views: 866
Next

Return to advanced search