数据窗口中的增量查询功能
问:请问在PB的数据窗口中怎样实现某一列的增量查询功能,就是说在单行编辑器控件中每输入一个字符,数据窗口能找到这一列值左边部分与单行编辑器中内容相等的行,并加亮显示。例如数据窗口是按整型字段“ID”升序排列的,用户在单行编辑器中输入1,则数据窗口滚动到ID字段第一位为“1”的第一行并加亮显示;再在1后输入0,则数据窗口滚动到ID字段前两位为“10”的第一行,依次类推。
答:增量查询功能实现的关键有两点,一是单行编辑器能实时响应键盘的输入,捕捉每一个按键,获得其中的文本;二是数据窗口的模糊查询功能,即能够找到列ID左边文本与单行编辑器文本相等的行,这可以用“like”来实现。下面给出具体方法:
1、定义单行编辑器的用户事件ue_enchange,事件的ID为:pbm_enchange。这个事件能响应键盘的输入。
2、在单行编辑器的ue_enchange事件中编写如下脚本:
long ll_found_row
string ls_find
ls_find = ″string(id) like ″ + ″′″ + this.text + ″%′″ //查找条件(左部分与单行编辑器文本相等)
ll_found_row = dw_name.Find(ls_find, 1, dw_name.RowCount()) //查找符合条件的行
if ll_found_row <= 0 then return
dw_name.ScrollToRow(ll_found_row) //滚动到相匹配的行
dw_name.SelectRow(0 , false)
dw_name.SelectRow(ll_found_row , true) //将匹配行加亮显示