Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
What is name of function you use from Superlib ?Tristan wrote:Hi All,
How to make lookup table, example if key F2 or klik button can display list of customer and when enter, cust id can display ?
In Clipper, I use SuperLib Library Function.
Best Regards,
Tristan
Please check FindRec() function Code: Select all
Function FindRec()
local mRecno, aAcctnm := {}, i :=0
netselect("ACCT")
set order to 2
mRecno = iif(eof(), 0, recno())
go top
dbeval({|| aadd(aAcctnm, acct->acctnm)})
if recno() <> 0
go (mRecno)
endif
i := frmFind(aAcctnm)
if i > 0
netselect("acct")
set order to tag acctnm
seek upper(aAcctNm[i])
RefreshData()
endif
return nil
Function FrmFind(aData)
private aTempData := {}, mPtr := 0
aeval(aData, {|x| aadd(aTempData, x)})
WinFrmFind()
frmFind.Center
frmFind.Activate
Return (mPtr)
Static function InitFind()
frmFind.lstFind.deleteallitems()
aeval(aTempData, {|x| frmFind.lstFind.additem(x)})
frmFind.lstFind.setfocus()
return nil
Function WinfrmFind()
DEFINE WINDOW AT 140 , 235 ;
WIDTH 550 HEIGHT 394 ;
TITLE "Find"
MODAL ;
ON INIT InitFind()
DEFINE BUTTON cmdOk
ROW 330
COL 120
WIDTH 100
HEIGHT 28
ACTION {mPtr := frmFind.lstFind.value, frmFind.release()}
CAPTION "&Ok"
END BUTTON
DEFINE BUTTON cmdCancel
ROW 330
COL 300
WIDTH 100
HEIGHT 28
ACTION {mPtr = 0, frmFind.release()}
CAPTION "&Cancel"
END BUTTON
DEFINE LISTBOX lstFind
ROW 0
COL 0
WIDTH 541
HEIGHT 323
ITEMS {""}
VALUE 0
FONTNAME "Lucida Console"
FONTSIZE 10
BACKCOLOR {253,254,199}
ONDBLCLICK {frmFind.cmdOk.action()}
END LISTBOX
END WINDOW
return nilBecause,Tristan wrote: Why use array not use direct table ? If use array all data should transfer to array, it takes time.
Please check VIRTUAL property of GRID in the Reference regarding performance 
,I just tested to store some fields into an array of a table having 429712 records. It runs fine. So this array has 429712 rows and 3 columnsTristan wrote: In array only support 4800 line, is it right ? What happen if table have more than 4800 record ?
Code: Select all
...
...
Function TestRecord()
local i := 0, mTotRec
aData := {}
select saledtl
mTotRec := reccount()
go top
main.progressbar_1.value := 0
do while !eof()
do events
i++
main.label_1.value := ltrim(str(i))+" / "+ltrim(str(mTotRec))
main.progressbar_1.value := i/mTotRec*100
aadd(adata, {saleid, styleid, sizeid})
skip
enddo
msgbox("complete")
go top
return nil