1 DropDownListBox的建立
PowerBuiler提供了非常便捷的DropDownListBox的设计方法，其中提示信息可通过几种途径获得：
. 在建立DropDownListBox时直接输入。当DropDownListBox中提供的提示信息固定且数量较少时一般采用该方法。
. 利用DataWindow构造 UserObject。当DropDownListBox中所要给出的提示信息内容较多且为某数据表（Table）的部分或全部内容时可采用该方法。设计时将提供信息的数据窗口（DataWindow）嵌入在DropDownListBox之后生成为User Object，并在应用程序的任意窗口内调用这个User Object，可达到提供相同提示信息的目的，具有较好的通用性。
. 利用DropDownListBox的构造事件。在DropDownListBox脚本（Script）的构造事件中通过DropDownListBox的添加函数AddItem()，既可在列表中填入固定的提示信息，亦可从数据表中根据条件获得提示信息。从数据表中获得提示信息的方法如下：
首先定义一个Cursor。该Cursor的定义可在脚本中进行，也可以在窗口的Instance Variables中进行；
在DropDownListBox脚本的选择构造事件（constructor）调用已定义的Cursor从数据表中取出数据并利用AddItem()函数将数据填入列表中。
利用该方法获得的DropDownListBox中的提示信息不仅可包含数据表中的某一项信息，而且还可以是表中若干项内容的组合，甚至在必要时通过几个Cursor的调用可从多个表中提取信息放入列表中，使其提供的提示信息更为丰富。
2 DropDownListBox中信息的动态更新
通过以上几种方法建立的DropDownListBox为应用程序的使用带来了极大的方便，在一般情况下可以满足信息辅助输入的需要。但是，在有些情况下，DropDownListBox中所提供的信息不仅仅作为输入的辅助信息，而且还会随所在窗口进行的不同操作而发生改变，这时应将变化的情况及时反映出来，作为用户进行下一步操作的正确依据，即应对DropDownListBox中的信息进行动态更新。为了达到这一目的，使用第三种方法更为有效。可按以下步骤进行：
（1） Cursor 的定义。如：
DECLARE c—getdbdbh CURSOR FOR
SELECT ckqkk.bianhao, ckqkk.sjsl, ckqkk.jss
FROM ckqkk
WHERE (ckqkk.cwbz is null or ckqkk.cwbz <> ′D′)
ORDER BY ckqkk.bianhao;
（2） 建立数组变量与DropDownListBox的对应关系。在Instance Variables中定义数组变量，利用Cursor从数据表中获得信息的同时将其写入数组中，数组元素的下标与信息在DropDownListBox的顺序一一对应。如：
Long nCount
String sNumber
Dec nTemp1, nTemp2
Long nRow
Open c—getdbdbh;
FETCH c—getdbdbh
INTO :sNumber ,:nTemp1, :nTemp2;
Do While sqlca.sqlcode = 0
nCount += 1
aDBDH［ nCount ］ = sNumber
//材料编码
aSJSL［ nCount ］ = nTemp1
//总入库数量
aJSSL［ nCount ］ = nTemp2
//已结算数量
ddlb—4.Additem(sNumber + Space( 1 ) + String(nTemp1a - nTemp2 ) )
FETCH c—getdbdbh
INTO :sNumber , :nTemp1, :nTemp2;
Loop
Close c—getdbdbh;
通过上述程序段构造的DropDownListBox的提示信息是某种材料的编码和未结算数量（等于入库总数量－已结算数量），如在材料出库的窗口中使用该DropDownListBox，其中材料编码不会改变，而未结算数量则会随出库操作而发生变化，该项为更新的对象。为此，在完成材料出库操作的事件发生时应触发更新DropDownListBox的操作。
（3） 信息的动态更新。在PowerBuilder中未提供对DropDownListBox数据项进行修改的函数，但提供了插入与删除函数，为此，我们可借助这两个函数来实现动态更新的操作。当已结算数量的数组元素的值已修改完毕，以下程序段即可实现DropDownListBox信息动态更新的功能：
String sText
Long nItem
sText = ddlb—4.Text
nItem = ddlb—4.FindItem( sText, 0 )
ddlb—4.DeleteItem( nItem )
ddlb—4.InsertItem(aDBDH［ nItem ］+ String
( aSJSL［ nItem ］ - aJSSL［ nItem ］ ), nItem)
