请教如何选DBGrid1某区域的记录,并复制到剪切版?
解决方案 »
- fastreport3在设计报表时,点击最小化设计窗体不见的问题
- 大虾请教:在MS SQL 的字段为SMALLDATETIME,在D7 中,做了一个查询,详情如下:
- 好痛苦,高手过来救命啊!
- 文件读写的问题!
- 修改windows2000的计算机的工作组
- 中国队小组可以出线吗?可以走多远?
- 如何使鼠标占击动态建立的image控件,弹出一个消息?
- 怎么通过多级代理(代理服务器+代理服务器)访问一些特定的网站?
- 如何把20020101转变成日期型啊?
- 如何利用Delphi 操作Excel中的回归分析
- 请问俺安装Express Quantum Grid 4.11 FOR DELPHI70后,为什么没有 TdxDBGrid ?急急急
- 求高手帮我写1条代码!!!在线等!!!!
(DataSet : TDataSet; FieldName : String;
BookList : TBookList; Strings : TStrings);
//这个过程中的参数分别为:数据表、字段名称、
书签、用来保存所选字段内容的
//字符串(用于将内容传递到另
一个单独窗体中的TLIST控件中)
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do begin
DisableControls;
bm := GetBookMark;
try
//每个选择的记录都有一个书签标志,
这就为处理它们提供了条件
for I := 0 to BookList.Count - 1 do begin
Book := BookList[I];
Strings.Add(DataSet.FindField(fieldname).AsString);
end;
finally
GotoBookMark(bm);
FreeBookMark(bm);
EnableControls;
end;
end;
end;调用举例:
GetSelectedRecord(Table1, `NAME`, DBGrid1.SelectedRows,
Form2.ListBox1.Items);如果你要复制的话,可以参照上面代码做一点改进就可以了