1.... begin ComBoBox1.Items.Clear; ...{打开数据集} if not ADOQuery1.Eof then begin for i := 0 to ADOQuery1.RecordCount - 1 do begin ComBoBox1.Items.add(ADOQuery1.FieldByName('dep').AsString); ADOQuery1.Next; end; end; ADOQuery1.Close; end; 2.我只知道备份Access,就是拷贝文件,呵呵 end;
begin
ComBoBox1.Items.Clear;
...{打开数据集}
if not ADOQuery1.Eof then
begin
for i := 0 to ADOQuery1.RecordCount - 1 do
begin
ComBoBox1.Items.add(ADOQuery1.FieldByName('dep').AsString);
ADOQuery1.Next;
end;
end;
ADOQuery1.Close;
end;
2.我只知道备份Access,就是拷贝文件,呵呵
end;