【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;            //