delphi combobox长时间运行后在下拉,就会出现一闪而过。
短时间运行不会出现这种错误,软件运行10多小时后出现的。附上源代码:procedureTfrm.cbbPihaoDropDown(Sender:TObject);vars...
短时间运行不会出现这种错误,软件运行10多小时后出现的。
附上源代码:
procedure Tfrm.cbbPihaoDropDown(Sender: TObject);
var sSql, sBegin, sEnd, src: string;
begin
sBegin := FormatDateTime('yyyy-MM-dd', dtBDate.Date) + ' ' + FormatDateTime('HH:nn:ss', dtBTime.Time);
sEnd := FormatDateTime('yyyy-MM-dd', dtEDate.Date) + ' ' + FormatDateTime('HH:nn:ss', dtETime.Time);
sSql := 'select distinct F_PFNo from T_Record where F_Time>=''' + sBegin + ''' and F_time<''' + sEnd + '''';
with dm.qry do
begin
Close;
SQL.Clear;
SQL.Add(sSql);
Open;
end;
if dm.qry.RecordCount > 0 then
begin
cbbPihao.Items.Clear;
while not dm.qry.Eof do
begin
src := dm.qry.fieldByName('F_PFNo').AsString;
if src <> '' then cbbPihao.Items.Add(Trim(src));
dm.qry.Next;
end;
dm.qry.First;
end;
end; 展开
附上源代码:
procedure Tfrm.cbbPihaoDropDown(Sender: TObject);
var sSql, sBegin, sEnd, src: string;
begin
sBegin := FormatDateTime('yyyy-MM-dd', dtBDate.Date) + ' ' + FormatDateTime('HH:nn:ss', dtBTime.Time);
sEnd := FormatDateTime('yyyy-MM-dd', dtEDate.Date) + ' ' + FormatDateTime('HH:nn:ss', dtETime.Time);
sSql := 'select distinct F_PFNo from T_Record where F_Time>=''' + sBegin + ''' and F_time<''' + sEnd + '''';
with dm.qry do
begin
Close;
SQL.Clear;
SQL.Add(sSql);
Open;
end;
if dm.qry.RecordCount > 0 then
begin
cbbPihao.Items.Clear;
while not dm.qry.Eof do
begin
src := dm.qry.fieldByName('F_PFNo').AsString;
if src <> '' then cbbPihao.Items.Add(Trim(src));
dm.qry.Next;
end;
dm.qry.First;
end;
end; 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询