As subject.
Thanks in advance.
aEmp := {}
Select 1 // employee
Go Top
Do While .not. eof()
cText := str(a->EmpNumber,4)+"---"+a->EmpName
AAdd( aEmp, cText )
select 1
skip
EnddoREDEFINE COMBOBOX oEmp var cEmp ID 127 of oDlg ;
ITEMS aEmp UPDATE
...
...
b->EmpNumber := val(substr( cEmp,1,4))I'm not sure exactly what you are needing this for, but with DBCombo you can list one value and return another. For instance you can list a description and return an ID number.
James
Dear Rick,
Thanks, it is a good idea for solve the problem.
Dear James,
Yes, exactly I need. Show 1 column (array) return another column as your said. How can I do that?
Thank you so much.
/*
Program : DBC1.PRG
Purpose : Test DBCombo
Notes :
*/
#include "fivewin.ch"
#include "dbcombo.ch"
function main()
local oDlg, oDBC1, oDBC2, cVar, oCust, cStateID:=" ", oBtn, cState:=""
local cDept:= space(3), oStates, aItems, aList
field NAME
if file("states.dbf")
use states
index on upper(NAME) to temp
database oStates
else
msgInfo("File states.dbf not found.")
endif
define dialog oDlg
@ 10,30 dbcombo oDBC1 var cStateID of oDlg;
alias oStates:cAlias;
size 100,200 pixel;
itemfield "CODE" ;
listfield "NAME";
ON CHANGE msgbeep();
update;
aList:= {"Accounting","HR","Marketing","Production","Research","Shipping","Sales"}
aItems:= {"100","200","400","300","600","500","700"}
@ 30,30 DBCOMBO oDBC2 VAR cDept;
items aItems;
size 100,200 pixel;
list aList;
of oDlg;
update
@ 50, 50 button oBtn prompt "Selected";
of oDlg pixel action (odbc1:Select( 5 ), eval( oDBC1:bChange) ) default
// action msgInfo( "cStateId: " +cStateID +CRLF+"DeptNo: "+cDept,"Selected" );
// default
@ 60,100 button oBtn2 prompt "sdfs" of oDlg action msgInfo( cStateID ) pixel
activate dialog oDlg center;
ferase("temp.ntx")
return nil
// EOFDutch,
I just noticed you wanted to use a 2-dimensional array. You will need to copy the two columns to single dimensional arrays. Or, you could copy the entire 2-dimensional array into a temp dbf and specify the column names. See another recent thread here about temp DBFs that are all in memory.
James
Dear James,
Thank you, I got it now.