在下拉数据窗口中查找与输入数据匹配的数据本篇文章来源与时代朝阳数据库（原晓通数据库）培训部PowerBuilder资料库。
从下拉数据窗口中查找数据时，一般情况下，需要从下拉数据窗口的第一行开始查找。
如果下拉数据窗口中的数据很少，只有十条左右，查找很方便。
但是，如果下拉数据窗口的数据很多，如上百条，则查找起来就会很麻烦。
下面讲述一种从下拉数据窗口中查找数据的方法。
该方法可以实现：将数据输入该列时，该列自动显示下拉数据窗口中与输入数据最匹配的第一个数据，下拉数据窗口自动滚动到被选数据所在的行，并且高亮度显示该行。
下面举例介绍，步骤如下：1. 创建窗口win_article_subject，在窗口中放置数据窗口控制dw_1。
2. 创建与窗口win_article_subject相连的数据窗口dw_article_subject，该数据窗口基于表“article_subject”。
创建“subject”列的下拉数据窗口dw_subject，该下拉数据窗口基于表“subject”。
创建好的窗口及数据窗口如下图所示：注意，在带有下拉数据窗口的列（“subject”列）中，必须指定该列的“Allow Editing”属性为True。
3. 在窗口中定义如下的实例变量：long il_rowcountboolean ib_keyworddatawindowchild idwc_datastring is_mach, is_type4. 在窗口的open事件写入如下的语句：ib_keyword = false5. 在窗口中定义名为“highlight”的用户自定义事件，不指定事件ID号、传入参数和返回值，并在事件中写入如下的语句：idwc_data.SelectRow(il_rowcount, TRUE)6. 创建全局函数gf_match_row，函数的参数和返回值定义如下表所示：返回类型为：长整型（Long）。
函数程序如下：string ls_mthtextlong ll_mthrowlong ll_counter = 1long ll_rowIF s_type = "number" THEN //检测列的数据类型是否为number//逐行检测下拉数据窗口中与输入数据最匹配的数据所在的行DO UNTIL ll_counter > dwc_name.RowCount()ll_mthrow = dwc_name.GetItemNumber(ll_counter, s_col_name)IF Left(string(ll_mthrow), i_length) = s_text THENll_row = ll_counterEXITELSEll_counter = ll_counter + 1END IFLOOPELSE//列的数据类型不是number//逐行检测下拉数据窗口中与输入数据最匹配的数据所在的行DO UNTIL ll_counter > dwc_name.RowCount()ls_mthtext = dwc_name.GetItemString(ll_counter, s_col_name)IF Left(ls_mthtext, i_length) = s_text thenll_row = ll_counterEXITELSEll_counter = ll_counter + 1END IFLOOPEND IFreturn(ll_row) //返回与输入数据最匹配的数据所在行的行号7. 在数据窗口控制的“cl icked”事件中写入如下的程序：ib_keyword = false8. 在数据窗口控制（dw_1）的“editchanged”事件写入如下程序：//定义变量string ls_search, ls_col_namestring ls_attributeinteger li_string_length//获得具有下拉数据窗口列的列名ib_keyword = falsels_col_name = dw_1.GetColumnName()//判别当前列是否具有下拉数据窗口，如果不具有，则退出事件程序IF dw_1.GetChild(ls_col_name,idwc_data) < 0 THENreturnEND IF//获得下拉数据窗口的显示列及其类型ls_attribute = ls_col_name + ".dddw.displaycolumn"ls_col_name = this.Describe ( ls_attribute)ls_attribute = ls_col_name+".coltype"is_type = idwc_data.Describe(ls_attribute)//获得输入到列中的文本ls_search = dw_1.GetText()li_string_length = Len(ls_search)IF li_string_length = 0 THENreturnEND IF//找出下拉数据窗口中与输入数据最匹配的行il_rowcount = gf_match_row(idwc_data, ls_search,+&li_string_length,is_type,ls_col_name)IF il_rowcount <= 0 THENib_keyword = FALSEELSEib_keyword = TRUEidwc_data.SetRow(il_rowcount)IF is_type = "number" THENis_mach =string(idwc_data.GetItemNumber(il_rowcount,ls_col_name))dw_1.SetItem(dw_1.GetRow(),dw_1.GetColumn(), is_mach)ELSEis_mach = idwc_data.GetItemString(il_rowcount, ls_col_name)dw_1.SetItem(dw_1.GetRow(),dw_1.GetColumn(),is_mach)END IF//事件editchanged结束后，下拉数据窗口中被选中的行以高亮度显示parent.PostEvent("highlight")END IF运行窗口“win_article_type”，在数据窗口中的“subject”列中输入第一个字时，该列显示下拉数据窗口中与输入的第一个字相匹配的数据，下拉数据窗口自动滚动到该行，并且高亮度显示该行。
