delphi:combobox控件里添加字段的问题？
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var
i:integer;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from 商品单';
adoquery1.Open;
for i:=0 to adoquery1.FieldCount-1 do
begin
combobox1.Items.Add(adoquery1.Fields[i].FieldName('商品号'));
end;
end;
怎么运行的时候，提示:Missing operator or semicolon.
最新回答
等待我
2024-08-03 02:52:21
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('Select distinct 商品单号 from 商品单');
adoquery1.Open;
adoquery1.First;
for j:=0 to adoquery1.RecordCount-1 do
begin
ComboBox1.Items.Add(adoquery1.Fields.Fields[0].AsString);
adoquery1.Next;
end;
山间雾安
2024-08-03 01:34:28
begin
Close;
SQL.Clear;
SQL.Add('Select distinct 商品单号 from 商品单');
Open;
First;
for j:=0 to RecordCount-1 do
begin
ComboBox1.Items.Add(FieldByName('商品单号').AsString);
Next;
end;
end;
热门标签
