盒子论坛 v2.1

SQL？？？
呵呵不是开玩笑吧：你选的多行每行的记录都保证相同吗？
既然delete from table1 where ab='cd' //显然要有规律才能批量删除！

如果是你，偶觉不这么死脑筋，偶向来都是用listview 轻松，又好解决！
----------------------------------------------

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2004/2/19 13:13:24

4楼：

具体使用请参看DBGrid.SelectedRows帮助中的Samples.
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

wenfei (无忌)	★☆☆☆☆	-
	盒子活跃会员

2004/2/19 13:20:26

5楼：

在连接dbgrid的数据集中虚拟一个字段如is_select（select 0 as is_select,a,b from atable）,点击表格后其值设为1,然后以此为条件。。。。
----------------------------------------------
╬╬Smart programmer use Delphi╬╬

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/19 13:25:07

6楼：

晕晕晕！？？？

此帖子包含附件:

大小:201.5K

----------------------------------------------

作者：

humanity (唤醒)	★☆☆☆☆	-
	盒子活跃会员

2004/2/19 13:29:50

7楼：

BIOS以前有看过一个程序，它是在DBGRID中的一个属性中一但选中一条记录则把他的标识号放到一个数组中然后再进行删除。（也就是DBGRID的指针）
我找找到时看看，（呵呵不是开玩笑吧：你选的多行每行的记录都保证相同吗？）这句话应该不至于吧。

----------------------------------------------

作者：

humanity (唤醒)	★☆☆☆☆	-
	盒子活跃会员

2004/2/19 15:08:53

8楼：

???
----------------------------------------------

作者：

humanity (唤醒)	★☆☆☆☆	-
	盒子活跃会员

2004/2/20 10:53:33

9楼：

刚刚这样写了一下似乎可以达到效果：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        s:=Fields[0].AsString;
        label1.Caption:=s;
        with  query2 do
        begin
        close;
        sql.Clear;
        sql.Text:='delete from test where bh=:bh ';
        parambyname('bh').AsString:=s;
        execsql;
        end;
        end;
query1.Active:=false;
query1.Active:=true;
end;
----------------------------------------------

信息

登陆以后才能回复