for i:= 0 to YouTable.RecordCount-1 do
begin
DbComboBox.Items[i]:=YouTable.fieldByName('FieldName').AsString;
if not YouTable.Eof then
YouTable.Next;
end;
begin
DbComboBox.Items[i]:=YouTable.fieldByName('FieldName').AsString;
if not YouTable.Eof then
YouTable.Next;
end;
如下:
Table1.First;//让数据集指向开始
MyListBox.Items.Clear;//清空MyListBox内容
while Not Table1.Eof do//加入字段
begin
MyListBox.Items.Add(Table1.FieldByName('字段名').AsString);
Table1.Next;
end;
if clientdataset.recordcount>0 then
for i=0 to clientdataset.recordcount-1 do
mylistbox.items.add(Clientdataset.FieldByNam('fieldname').asstring
Clientdataset.open;