关于dbgrid的多选的问题(100分)

晨

晨空

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #1

有一个dbgrid，设制他的dgmultiselect＝true，dbgrid中有一个字段为field1
现在要用一个query做一个查询动作，要在一个表table1中查询出字段a的值，为当前dbgrid所选择的字段
field的值，
比如说，现在在dbgrid中选了两条记录，他们的字段field1的值，分别 为c1，c2
用一个query做一查询，希望查出，另一个表table1中，所有字段a的值为c1，c2的数据
不知该怎么做

 

C

cx139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #2

GZ
DBGRID好象不能多选吧

 

晨

晨空

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #3

可以的，把dgmultiselect＝true

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #4

cx139,dbgrid当然能够多选了。
Delphi自己的例子：
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));
for j := 0 to FieldCount-1 do
begin

if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;

 

★

★蓝天★

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #5

if dbgrid1.SelectedRows.Count>0 then
begin
for i:=0 to dbgrid1.SelectedRows.Count-1 do
begin
//showmessage('');
datam10.QY_lkpursourceb.GotoBookmark(pointer(DBGrid1.SelectedRows.Items));
datam10.QY_reppurchasecomp.SQL.Text
:=datam10.QY_reppurchasecomp.SQL.Text+' or pch_print='+datam10.QY_lkpursourceb.fieldbyname('pch_print').AsString;
//datam10.qy_reppurchasecomp.sql.add('and ');
// myarray1:=datam10.qy_lkpursourceb.fieldbyname('pch_pring').asstring;
end;
end;

 

晨

晨空

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-04

• #6

接受答案了.