>>Use (_foxcode) Again && Or any other table >>DEFINE WINDOW FoxWindow FROM 10,10 SIZE 1,1 NAME FoxWindow >>FoxWindow.top=50 >>FoxWindow.left=50 >>FoxWindow.WIDTH=550 >>FoxWindow.HEIGHT=500 >>FoxWindow.Caption='Test' >>Browse In Window FoxWindow Save Name FoxBrowse nowait >>#if .f. >>Public FoxBrowse as Grid && to enable intellisense >>#endif >>FoxBrowse.left=0 >>FoxBrowse.top=0 >>FoxBrowse.width=FoxWindow.width >>FoxBrowse.height=FoxWindow.height >>FoxBrowse.HighlightStyle= 1 >>FoxBrowse.HighlightBackColor=0x00ff00 >>FoxBrowse.setall('DynamicBackColor', 'IIF(Mod(Recno(),2)=0,Rgb(255,255,255),Rgb(170,170,170))') >>FoxBrowse.AutoFit() >>Activate Window FoxWindow >>On Key Label Enter Keyboard '{esc}' Plain >>Browse last >>On Key Label ENTER >>Release Windows FoxBrowse >>Release Windows FoxWindow >>Messagebox('You picked record no.' + Transform(Recno()) + Chr(13)+Chr(10); >>+ 'field 1 is ' + Transform(Evaluate(Field(1))) + Chr(13)+Chr(10); >>+ 'field 2 is ' + Transform(Evaluate(Field(2))))>>
>>>#DEFINE ROUGE_LOC RGB(255,0,0) >>>#DEFINE BRUN_CL_LOC RGB(255,128,0) >>> >>> >>>CREATE CURSOR Temp ( Name c(20) , nPrice N(8,4) ) >>>INSERT INTO Temp "DUPONT jean" , 14 >>> >>> >>>Brows Field Name , nPrice:IIF( BETW( nPrice , 1 , 9 ) , ROUGE_LOC , BRUN_CL_LOC ) >>> >>>>>>