Subject Re: COMBOBOX function = "!"
From Mervyn Bick <invalid@invalid.invalid>
Date Mon, 3 Aug 2020 19:53:41 +0200
Newsgroups dbase.getting-started
Attachment(s) test_combobox_upper.wfm

On 2020-07-31 20:40, Eric Wu wrote:
>     this.COMBOBOX1 = new COMBOBOX(this)
>     with (this.COMBOBOX1)
>        function = "!"  //   ----> it doesn't work
>        height = 1.0
>        left = 4.6667
>        top = 3.8
>        width = 24.1111
>        style = 1        // DropDown
>     endwith
>
> any workaround?
> Eric
>

See attached example.

Mervyn.



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

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

   insert into test_combobox_upper  (data) values ("Apple")
   insert into test_combobox_upper  (data) values ("Banana")
   insert into test_combobox_upper  (data) values ("Date")
   insert into test_combobox_upper  (data) values ("Fig")
   insert into test_combobox_upper  (data) values ("Gooseberry")
endif
** END HEADER -- do not remove this line
//
// Generated on 2020-08-03
//
parameter bModal
local f
f = new test_combobox_upper_upperForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_combobox_upper_upperForm of FORM
   with (this)
      height = 16.0
      left = 45.1429
      top = 6.1818
      width = 70.5714
      text = ""
   endwith

   this.TEST_COMBOBOX_UPPER1 = new QUERY(this)
   with (this.TEST_COMBOBOX_UPPER1)
      left = 5.0
      width = 14.0
      height = 1.0
      sql = 'select t.*,upper(data) as data_upper from "test_combobox_upper.DBF" t'
      active = true
   endwith

   this.COMBOBOX1 = new COMBOBOX(this)
   with (this.COMBOBOX1)
      height = 1.0
      left = 10.8571
      top = 4.1818
      width = 15.7143
      dataSource = form.test_combobox_upper1.rowset.fields["data"]
      style = 1        // DropDown
   endwith

   this.COMBOBOX2 = new COMBOBOX(this)
   with (this.COMBOBOX2)
      onKey = class::COMBOBOX2_ONKEY
      height = 1.0
      left = 36.1429
      top = 4.1364
      width = 15.7143
      dataSource = form.test_combobox_upper1.rowset.fields["data_upper"]
      style = 1        // DropDown
   endwith

   this.rowset = this.test_combobox_upper1.rowset

   function COMBOBOX2_onKey(nChar, nPosition,bShift,bControl)
      this.value = upper(this.value)
      this.keyboard("{Ctrl+RightArrow}")
      return
      

endclass