把DBGrid中设为多条记录选择,那么有什么办法把所选取的记录的读取
出来呢?
请各位高手帮我解决有原代码更好!
分不够再给
谢谢啦!!
出来呢?
请各位高手帮我解决有原代码更好!
分不够再给
谢谢啦!!
解决方案 »
- 有关字符串内存复制问题
- 指定一个Hwnd后,如何让新建立的TLabel元件显示在上面?
- 求助!(D6 RTLUpdate3)
- DBdatagrid控件手动添加数据怎么做?
- 谁有devpress DBtree for D6
- 如何远程计算机屏幕监测!!
- 大家说说,杭州龙盛信息技术公司,怎么样啊? 我是面试的.
- 讨论:自制浏览器怎样浏览光盘上的隐藏文件夹?!
- 请问用Ttable联接数据时(access,sql)怎么屏蔽要求输入口令的对话框
- 如何在SQL-SERVER中设定,使得在其它机器上的SQL-SERVER只能用SA帐号登录本机。
- 请问,装了SkinEngine在delphi的控件栏看不见,是不是那里要添加一下?
- treeview 的遍历问题,急!!!
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
GotoBook(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
GotoBook(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;
chechy(简简单单的活) 和 huojiehai(海天子)
两位高手的代码都可以解决问题(其实是一样的啦^-^)
谢谢!!!