I am trying to get the dblclick to work on this but I haven't had much success... any suggestions?
Code:
dim getinfo as c tbl = table.current() tbl.query_detach_all() query.order = "inventory_no" query.filter = ".t." query.description = "Keylist" query.options="u" indx = tbl.query_create() searchby = 3 ui_dlg_box("Search", {frame=1,1} {region1} Search by: (searchby={CFS,Defendant,Inventory Number,Location,Officer,Status}); {endregion1}|{sp} {frame=1,1} {region2} {condition=(searchby=1)}CFS: [.10getinfo]; {lf}; Enter CFS as 00-00000; {endregion2} {start_pos} {region2} {condition=(searchby=2)}Enter first 4 letters of Defendant Last Name: [4.6getinfo]; {endregion2} {start_pos} {region2} {condition=(searchby=3)}Inventory #: [.10getinfo]; {lf}; Enter Inventory Number as 2000-000; {endregion2} {start_pos} {region2} {condition=(searchby=4)} {beginembedded} Show all the evidence for which Location? {lf}; Select Location:; [%KL=evidence,{keylist_build('1:10',location,location)}{unique_key_value()}%.50,10getinfo!event_*]; [selection^#getinfo!getinfo_*]; {lf}; {endembedded}; {endregion2} {start_pos} {region2} {condition=(searchby=5)} {beginembedded} Show all the evidence for which Officer? {lf}; Select Officer:; [%KL=evidence,{keylist_build('1:40',ofc_name,ofc_name)}{unique_key_value()}%.50,10getinfo!event_*]; {lf}; {endembedded}; {endregion2} {start_pos} {region2} {condition=(searchby=6)} {beginembedded} Show all the evidence for which Status? {lf}; Select Status:; [%KL=evidence,{keylist_build('1:10',status,status)}{unique_key_value()}%.50,10!event_*]; [selection^#getinfo!getinfo_*]; {lf}; {endembedded}; {endregion2}; {region} {condition=.t.} {endregion}; %dlg%, IF a_dlg_button = "Print" THEN select case searchby=1 filter_expression = "CFS_no = '"+getinfo+"'" case searchby=2 filter_expression = "substr(Def_L_name,1,4) = '"+getinfo+"'" case searchby=3 filter_expression = "inventory_no = '"+getinfo+"'" case searchby=4 filter_expression = "location = '"+getinfo+"'" case searchby=5 filter_expression = "ofc_name = '"+getinfo+"'" case searchby=6 filter_expression = "status = '"+getinfo+"'" end select report.Preview("evidence",filter_expression) end if if left(a_dlg_button,11) = "event_" if a_dlg_button = "event_dblclick" then select case searchby=4 evidence:tables:evidence.filter_expression = "location = '"+getinfo+"'" evidence.query() :evidence.resynch() case searchby=5 evidence:tables:evidence.filter_expression = "ofc_name = '"+getinfo+"'" evidence.query() :evidence.resynch() case searchby=6 evidence:tables:evidence.filter_expression = "status = '"+getinfo+"'" evidence.query() :evidence.resynch() end select END IF a_dlg_button = "" END IF %code%)
Comment