【结帖】下拉框绑定数据库表字段**

ccseasy

//下拉框（cbxwork）绑定数据库表（worklist）字段（workname）
procedure TZDRYSDJMform.cbxworkClick(Sender: TObject);
var
i:integer;
begin
  if Length(cbxwork.Items.Text)>0   then
  cbxwork.Items.Clear;
  for i:=1 to dsWork.DataSet.RecordCount do
  begin
    cbxwork.Items.Add(dsWork.DataSet.FieldByName('workname'));
  end;
end;

编译时提示如图

shangxy

cbxwork.Items.Add(dsWork.DataSet.FieldByName('workname').AsString);

ccseasy

对对对，忘了，谢谢！！！

ccseasy

combobox如何实现多选？谢谢！！！