5,388
社区成员
发帖
与我相关
我的任务
分享DBGridEh & MutilSelect
用DBGridEh实现行多选的功能，既将Options中的dbMutilSelect设置为true，之后我想问的就是，怎么才能区别出那些是被选的项？这些项有没有什么标志？程序中怎么写？谢谢各位！
...全文
请发表友善的回复…
发表回复
victor_yang 2004-11-16
- 打赏
- 举报
wafeijian(韵杰〖痛并快乐着……〗) 的观点是对的。
naner_china 2004-11-16
- 打赏
- 举报
学习中....
prosimon 2004-11-15
- 打赏
- 举报
wafeijian(韵杰〖痛并快乐着……〗) 能问一下如何控制 DBgrid控件只能多选 M行 比如说M = 2
luckzhangs 2004-11-15
- 打赏
- 举报
dbgrid1.selectros返回是一个tbookmarklist，可以使用上面的方法
wafeijian 2004-11-15
- 打赏
- 举报
procedure TForm1.Button1Click(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]));
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;
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]));
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;
Kevin_Lmx 2004-11-15
- 打赏
- 举报
有人来吗?自己顶下先
