Queryの値をComboBoxへ

Queryの値をComboBox(ListBox)に持ってくるのに便利な関数。
pacwin氏作です。
元ネタはここ。

function populate_list_element($element, $dataset, $fieldname, $indexfield)
{

$items=array();

$element->Clear();
$dataset->Active = true;
$dataset->First();

while(!$dataset->EOF)
{
$items[$dataset->$indexfield]=$dataset->$fieldname;
$dataset->Next();
};

$element->Items = $items;
$dataset->Active=false;

}

$element : ComboBox(ListBox)の名前
$dataset : Queryの名前
$fieldname : ComboBox(ListBox)のValueにしたいFieldName
$indexfield : ComboBox(ListBox)のKeyにしたいFiledName