PB中下拉列表ddlb的自动查找

integer li_searchtextlen   //查询字符长度
integer li_searchindex   //查找到的索引
string ls_searchtext    //输入的text
string ls_foundtext     //找到的text
boolean lb_keyback   //返回
boolean lb_keydel   //删除
messagebox("",this.text)

lb_keyback   =   KeyDown(KeyBack!)   
lb_keydel   =   KeyDown(KeyDelete!)   
   

ls_searchtext   =   this.text 
li_searchtextlen   =   Len   (ls_searchtext)   
   

If   li_searchtextlen   <=0   Or   lb_keyback   Or   lb_keydel   Then   Return   
li_searchindex   =   this.FindItem   (ls_searchtext,   0)                                           
if   li_searchindex   >   0   then   
      ls_foundtext   =   this.Text   (li_searchindex)   
       this.text   =   ls_foundtext   
       if   li_searchtextlen   =   len(ls_foundtext)   THEN   
         this.SelectText   (Len   (ls_foundtext)+1,   0)   
      else   
          this.SelectText   (li_searchtextlen   +   1,   Len   (ls_foundtext))   
       end   if   
end   if

里面主要是用到了一个ddlb的finditem事件，is_searchtext为要查找的字段，0为开始的index，事件返回第一个开头与is_searchtext匹配的index。

代码是从网上找的，很不错。可惜我系统中没用到，我用的是快速输入码。但这个东西是好东西，记下来，以后用。