在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;
begin
Close;
Sql.Clear;
Sql.Add('select * from table1 where datetime=:value');
ParamByName('value').AsDateTime := StrToDate(ComboBox1.Text);
Open;
end;
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;
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;
其余的和上面几位朋友的写法是一样的!
with query1 do
begin
Close;
Sql.Clear;
Sql.Add('select * from table1 where datetime=:value');
ParamByName('value').AsDateTime := StrToDateTime(ComboBox1.Text);
Open;
end;