请问如何在选中combobox下拉菜单中的一项时显示一个表的内容？

Question

在ComboBox的OnChange中写：with query1 do
begin
  Close;
  Sql.Clear;
  Sql.Add('select * from table1 where datetime=:value');
  ParamByName('value').AsDateTime := StrToDate(ComboBox1.Text);
  Open;
end;

Answer 1

oncreate里with query1 do
begin
   close;
   sql.add...
   open;
   first;
   while not eof do
   begin
     combobox1.items.add(datetimetostr(fieldbyname('datetime').asdatetime));
     next;
   end;
end;在combobox的onSelect中
with query1 do
begin
  Close;
  Sql.Clear;
  Sql.Add('select * from table1 where datetime=:value');
  ParamByName('value').AsDateTime := StrToDateTime(ComboBox1.Text);
  Open;
end;

Answer 2

在oncreate里with query1 do
begin
   close;
   sql.add（。）
   open;
   first;
   while not eof do
   begin
     combobox1.items.add(datetimetostr(fieldbyname('datetime').asdatetime));
     next;
   end;
end;在combobox的onSelect中
with query1 do
begin
  Close;
  Sql.Clear;
  Sql.Add('select * from table1 where datetime=:value');
  ParamByName('value').AsDateTime := StrToDateTime(ComboBox1.Text);
  Open;
end;

Answer 3

我用的是ADOQUERY,到这句 ParamByName('value').AsDateTime := StrToDateTime(ComboBox1.Text);有问题。

Answer 4

我觉得首先ComboBox就不应该用OnCreate事件，而应该OnDrawDown事件。
其余的和上面几位朋友的写法是一样的！

Answer 5

在combobox的onSelect中
with query1 do
begin
  Close;
  Sql.Clear;
  Sql.Add('select * from table1 where datetime=:value');
  ParamByName('value').AsDateTime := StrToDateTime(ComboBox1.Text);
  Open;
end;

Answer 6

ParamByName这个用的不对吧！？