while not ds_Edit.DataSet.Eof do
begin
cbbkind.Properties.Items.Add(ds_Edit.DataSet.FieldValues['kindname']);
ds_Edit.DataSet.Next;
end;通过上面几句向该控件添加项,但是我展开该控件下拉菜单选择值的时候却没有改变,真邪门!
begin
cbbkind.Properties.Items.Add(ds_Edit.DataSet.FieldValues['kindname']);
ds_Edit.DataSet.Next;
end;通过上面几句向该控件添加项,但是我展开该控件下拉菜单选择值的时候却没有改变,真邪门!
begin
cb_cb.Properties.Items.Clear;
cb_cb.Text:='';
qry_BaseTemp.Close;
qry_BaseTemp.SQL.Clear;
qry_BaseTemp.SQL.Add( ' select CB from Res_User_Temp where CB is not NULL group by CB ' );
qry_BaseTemp.Open;
while not qry_BaseTemp.Eof do
begin
cb_cb.Properties.Items.Add(Trim(qry_BaseTemp.fieldbyname('CB').AsString));
qry_BaseTemp.Next;
end;
end;