在PB中如何实现数据模糊查询

　　9.3 DataWindow: dw_where的losefocus 事件：

　　AcceptText()

　　9.4 DataWindow: dw_where的rbuttondown 事件：

　　功能：设置弹出式菜单。

　　注释：

　　（1） m_cpq_rbutton_paste菜单的属性和代码如下：

　　1.MenuItem = m_1 "a1"
Visible = true Enabled = true
2.MenuItems for m_1
MenuItem = m_value "&V.取现有值"
Visible = true Enabled = true
3.Script for: nt clicked event
long ll_pos
String sSyntax,ls_parm,ls_data,ls_disp
datawindow dwp
dwp = Message.PowerObjectParm
sSyntax = Message.StringParm
if sSyntax = "" or isNull(sSyntax) then
beep(3)
return
end if
OpenWithParm(w_paste,sSyntax) //w_paste为响应式窗口
ls_parm = Message.StringParm
if ls_parm <> "cancel" then
ll_pos = Pos ( ls_parm,'/')
If ll_pos = 0 Then
ls_data = ls_parm
ls_disp = ls_parm
Else
ls_data = Left ( ls_parm , ll_pos - 1 )
ls_disp = Mid ( ls_parm , ll_pos + 1 )
End If
dwp.SetItem(dwp.GetRow(),"value",ls_data)
dwp.SetItem(dwp.GetRow(),"dispvalue",ls_disp)
dwp.AcceptText()
end if
5. MenuItem = m_clear "&D.清除本列"
Visible = true Enabled = true
6. Script for: clicked event
datawindow dwp
dwp = Message.PowerObjectParm
dwp.DeleteRow(0)
dwp.InsertRow(0)
End of Script
MenuItem = m_return "&N.返回"
Visible = true Enabled = true9.5 DataWindow: dw_where的 ue_where 事件