pb 数据窗口dddw根据录入数据动态过滤及快速定位

最新推荐文章于 2021-02-02 11:26:17 发布

happymagic

最新推荐文章于 2021-02-02 11:26:17 发布

阅读量2.7k

点赞数

分类专栏： powerbuilder

本文链接：https://blog.csdn.net/happymagic/article/details/85766948

版权

powerbuilder 专栏收录该内容

112 篇文章 10 订阅

订阅专栏

datawindowchild ldwc_dddw
integer VK_DOWN = 40 ,VK_END = 35

//-----增加开户地的动态过滤匹配    20190103
CHOOSE CASE dwo.name

CASE 'city'
   This.GetChild(dwo.Name,ldwc_dddw)
   if len(data) >= 1 and match(data,'[^0-9]$') = true then
       ldwc_dddw.setfilter("( Lower(city) like '%"+Lower(Data)+"%' ) OR ( Lower(pym) like '%"+Lower(Data)+"%' )")
       ldwc_dddw.filter( )
       if ldwc_dddw.RowCount() = 1 then
           keybd_event(VK_DOWN,0,0,0)
           keybd_event(VK_DOWN,0,2,0)
           keybd_event(VK_END,0,0,0)
           keybd_event(VK_END,0,2,0)
       end if
   elseif len(data) > 1 and match(data,'[1-6]$') = true then
       ldwc_dddw.setfilter(" rowno = "+right(data,1)+" and lower(pym) like '%"+lower(left(data,len(data)-1))+"%'")
//           ldwc_dddw.setfilter(" rowno = '2' and lower(pym) = 'sh'")
       ldwc_dddw.filter()
       if ldwc_dddw.RowCount() = 1 then
           keybd_event(VK_DOWN,0,0,0)
           keybd_event(VK_DOWN,0,2,0)
           keybd_event(VK_END,0,0,0)
           keybd_event(VK_END,0,2,0)
       end if
   else
       ldwc_dddw.setfilter('')
       ldwc_dddw.filter( )
   end if

END CHOOSE