【PB】使用参数指定的SQL语句向指定的下拉列表框中添加数据

//

//函数名称wf_AddItem(dropdownlistbox fo_obj,string fs_SQL)

//参数：fo_obj为下拉列表框，fs_SQL为SQL语句

//返回值：无

//功能：使用参数指定的SQL语句向指定的下拉列表框中添加数据



String ls_item

 

Declare item_cur Dynamic Cursor For SQLSA;        //定义动态光标

Prepare SQLSA From :fs_SQL Using SQLCA;

Open Dynamic item_cur;               //打开动态光标

Fetch item_cur InTo :ls_item;                  //取数据

 

fo_obj.SetRedraw(False)                //禁止下拉列表框刷新

 

Do While SQLCA.SQLcode = 0

                  fo_obj.AddItem(ls_item)                //向下拉列表框中添加项目

         Fetch item_cur inTo :ls_item;

Loop

 

fo_obj.SetRedraw(True)                 //刷新下拉列表框

 

Close item_cur;            //关闭动态光标