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))))>Hi all,
>#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 ) > >>