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;
展开
 我来答
windblast
2012-03-06 · 知道合伙人软件行家
windblast
知道合伙人软件行家
采纳数:5633 获赞数:13617
毕业于空军第一航空学院电子专业,1991年开始接触电脑,从事多年计算机编程,具有较丰富的经验。

向TA提问 私信TA
展开全部
一闪而过,估计跟你的数据库查询有关,查询数据再到更新至combobox的列表,如果更新不太及时就可能出现这种情况,你可以用断点跟踪调试一下。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式