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
|
|