if file('mb_country.dbf')
// drop table mb_country
endif

if not file('mb_country.dbf')
   create table mb_country  (code character(2),country character(20))

   insert into mb_country  (code,country) values ("A","Argentina")
   insert into mb_country  (code,country) values ("B1","Belgium")
   insert into mb_country  (code,country) values ("B2","Brazil")
   insert into mb_country  (code,country) values ("C","Canada")
endif
if file('mb_data.dbf')
// drop table mb_data
endif

if not file('mb_data.dbf')
   create table mb_data  (id autoinc,data character(15),c_code character(2))

   insert into mb_data  (data,c_code) values ("sffdggfdfg","B1")
   insert into mb_data  (data,c_code) values ("hhhhlh","C")
   insert into mb_data  (data,c_code) values ("jhgghgj","A")
   insert into mb_data  (data,c_code) values ("kjhjjkjkk","B2")
   insert into mb_data  (data,c_code) values ("sffdggfdfg","B1")
   insert into mb_data  (data,c_code) values ("hhhhlh","C")
   insert into mb_data  (data,c_code) values ("jhgghgj","A")
   insert into mb_data  (data,c_code) values ("kjhjjkjkk","B2")
   insert into mb_data  (data,c_code) values ("sffdggfdfg","B1")
   insert into mb_data  (data,c_code) values ("hhhhlh","C")
   insert into mb_data  (data,c_code) values ("jhgghgj","A")
   insert into mb_data  (data,c_code) values ("kjhjjkjkk","B2")
   insert into mb_data  (data,c_code) values ("sffdggfdfg","B1")
   insert into mb_data  (data,c_code) values ("hhhhlh","C")
   insert into mb_data  (data,c_code) values ("jhgghgj","A")
   insert into mb_data  (data,c_code) values ("kjhjjkjkk","B2")
   insert into mb_data  (data,c_code) values ("sffdggfdfg","B1")
   insert into mb_data  (data,c_code) values ("hhhhlh","C")
   insert into mb_data  (data,c_code) values ("jhgghgj","A")
   insert into mb_data  (data,c_code) values ("kjhjjkjkk","B2")
endif

** END HEADER -- do not remove this line
//
// Generated on 2020-05-30
//
parameter bModal
local f
f = new test_lookupsqlForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_lookupsqlForm of FORM
   with (this)
      height = 16.5455
      left = 9.2857
      top = 5.0455
      width = 89.0
      text = ""
   endwith

   this.MB_DATA1 = new QUERY(this)
   with (this.MB_DATA1)
      left = 4.0
      width = 6.0
      height = 1.0
      sql = 'select * from "mb_data.DBF"'
      active = true
   endwith

   with (this.MB_DATA1.rowset)
      with (fields["c_code"])
         lookupSQL = "select * from mb_country"
      endwith
   endwith

   this.MB_COUNTRY1 = new QUERY(this)
   with (this.MB_COUNTRY1)
      left = 15.0
      width = 10.0
      height = 1.0
      sql = 'select * from "mb_country.DBF"'
      active = true
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 36.0
      top = 12.7727
      width = 15.2857
      text = "Clear Filter"
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.mb_data1.rowset
      integralHeight = true
      allowEditing = false
      height = 8.9091
      left = 4.2857
      top = 1.5909
      width = 75.5714
   endwith

   this.COMBOBOX1 = new COMBOBOX(this)
   with (this.COMBOBOX1)
      onChange = class::COMBOBOX1_ONCHANGE
      onOpen = class::COMBOBOX1_ONOPEN
      height = 1.0
      left = 4.0
      top = 12.7727
      width = 27.2857
      dataSource = form.mb_country1.rowset.fields["country"]
      style = 1	// DropDown
   endwith

   this.rowset = this.mb_country1.rowset

   function COMBOBOX1_onChange()
      lur = form.mb_data1.rowset.fields['c_code'].lookuprowset
      lur.applyLocate( "country = '" + this.value + "'" )
//      ? lur.fields[1].value,lur.fields[2].value
      form.mb_data1.rowset.filter = "c_code = '"+lur.fields[1].value+"'"
      return

   function COMBOBOX1_onOpen()
      this.value = 'Select Country'
      return

   function PUSHBUTTON1_onClick()
      form.combobox1.value = 'Select Country'
      form.mb_data1.rowset.filter = ''
      return
endclass

<br />
<b>Warning</b>:  Unknown: write failed: No space left on device (28) in <b>Unknown</b> on line <b>0</b><br />
<br />
<b>Warning</b>:  Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in <b>Unknown</b> on line <b>0</b><br />