
如何实现:PB编辑框有字符输入就触发一个事件
1个回答
展开全部
自定义一个事件:EVENTID:PBM_enchange
事件中定义你想做的事,就像定义函数一样。例子:
string ls_select ,ls_where,ls_sql
string ls_bh
if this.text='' then
return
end if
dw_1.visible=true
dw_1.settransobject(sqlca)
ls_bh=this.text
ls_where=" where 工程编号 like '%" +trim(ls_bh)+"'"
dw_1.reset()
ls_select=dw_1.getsqlselect()
ls_sql=ls_select+ls_where
if dw_1.setsqlselect(ls_sql)= - 1 then
messagebox('信息','生成查询出现错误,请重试。')
return
end if
dw_1.reset()
//
dw_1.setsort("工程编号")
dw_1.Retrieve()
if dw_1.setsqlselect(ls_select)= - 1 then
messagebox('信息','还原查询出现错误,请重试。')
return
end if
事件中定义你想做的事,就像定义函数一样。例子:
string ls_select ,ls_where,ls_sql
string ls_bh
if this.text='' then
return
end if
dw_1.visible=true
dw_1.settransobject(sqlca)
ls_bh=this.text
ls_where=" where 工程编号 like '%" +trim(ls_bh)+"'"
dw_1.reset()
ls_select=dw_1.getsqlselect()
ls_sql=ls_select+ls_where
if dw_1.setsqlselect(ls_sql)= - 1 then
messagebox('信息','生成查询出现错误,请重试。')
return
end if
dw_1.reset()
//
dw_1.setsort("工程编号")
dw_1.Retrieve()
if dw_1.setsqlselect(ls_select)= - 1 then
messagebox('信息','还原查询出现错误,请重试。')
return
end if
更多追问追答
追问
自定义的函数存在于函数列表中后
如何实现调用呢?
追答
选中你的编辑控件,点EVENT LIST,右键点ADD加入一个新的事件。事件ID选PBM_enchange,event name 取你想要的比如说:pb_change。比如说你让另一个编辑框显示你在第一个sle_1中的数据,侧在这个事件中写:sle_2.text=this.text
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询