我的GRID Options 设置为Selecterow = True, 多行选择也设置为True,如何将选定的几行数据添加到另外一个数据表中?
解决方案 »
- 在delphi7.0中怎么实现网络无线传输呀?
- 关于发票的打印
- 简单问:))怎么样让弹出一个对话框始终保持在最前面
- 如何在TShellListView中实现文件过滤?
- 请教打印图片的问题?急急!!
- delphi中有类似VB中的分隔字符串split函数吗?
- 字符串处理的问题
- 指针数组 array [0..4095] of pmyrecord 怎样释放内存?new和dispose组对无法达到目的....
- 做个调查 :midas最多能支持到多少用户同时在线
- 啊!救命呀!高手,大侠快来这里呀,救俺一命有分回谢!!!!!!!!!!!!!!!!
- 请问两个.pas文件的变量怎么传递??
- 有人会用1stClass的fcoutlookBar的高手么????急急急急急!!!
可以将要复制的数据记录号记录下来!再用SQL语句进行,添加到另一个数据表中!我想这个SQL语句就不用说了,关键是中间的条件:
var
str:string;
I:integer;
begin
str:='...'; //取得要复制的记录号
....
I:=0;
repeat
begin
Rect=strtoint(copy(str,I,1));
I:=I+1;
end;
until Rect.leve;
...........
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;
然后在根据主键在数据库查询出结果 插入到另外一个dbgrid中