dbgrideh怎样用复选框实现批量删除? 如题, 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以加一个字段selected字段类型为bit遍历数据集或者将数据填充到listview中来遍历数据集删除 AQuery1.first;while not AQuery1.eofbegin if AQuery1.fieldbyname('xxx').AsBoolean then AQuery1.delete;end; AQuery1.first; while not AQuery1.eof begin if AQuery1.fieldbyname('xxx').AsBoolean then AQuery1.delete; AQuery1.Next; end; 这样会删不干净的delete后记录会自动往下移动 那最后一条是删不掉的 再加一句if AQuery1.fieldbyname('xxx').AsBoolean then AQuery1.delete; 请教delphi中TQuery的SQL属性问题! select *from cir_s where ...问题 动态生成的控件我是存在控件数组中,但我想指定单击事件,如何指定? 向大哥们求救,在源码中加入uses Sysutils;就显示编译错误! 如何不让Delphi产生备份文件?? TFastDIB的问题,分不够可以再加 怎么才能把Word类型变成String型? 谁有消防管理的代码啊。应付学校 大家好!谁能告诉怎么判断一个MDIChild窗口是否已经打开 一个关于用户权限设置的问题? 向blazingfire 讨教FreeAndNil问题 超级菜鸟,数据库插入数据问题
遍历数据集或者将数据填充到listview中来遍历数据集删除
while not AQuery1.eof
begin
if AQuery1.fieldbyname('xxx').AsBoolean then
AQuery1.delete;
end;
while not AQuery1.eof
begin
if AQuery1.fieldbyname('xxx').AsBoolean then
AQuery1.delete;
AQuery1.Next;
end;
delete后记录会自动往下移动 那最后一条是删不掉的
if AQuery1.fieldbyname('xxx').AsBoolean then
AQuery1.delete;