M
magicor
Unregistered / Unconfirmed
GUEST, unregistred user!
如何把dbgrid中选中的一条记录存入另一个数据表中
╭
╭⊙⊙╮
Unregistered / Unconfirmed
GUEST, unregistred user!
可以双击query控件 出现field edit 你add all fields 然后选中所有的字段
拖到from中 会出现对应的dbedit 而且和dbgrid同步
你从dbedit读数据 就可以了！！！
拖到from中 会出现对应的dbedit 而且和dbgrid同步
你从dbedit读数据 就可以了！！！
无
无题
Unregistered / Unconfirmed
GUEST, unregistred user!
看看下面代码（Delphi帮助中的）
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));
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;
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));
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!
将数据倒到A表中
前提：两个表的结构应一致)
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));
A.Append;
for j := 0 to FieldCount-1 do
begin
A.Fields[j] := Fields[j];
end;
A.Post;
end;
end;
前提：两个表的结构应一致)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));
A.Append;
for j := 0 to FieldCount-1 do
begin
A.Fields[j] := Fields[j];
end;
A.Post;
end;
end;
P
ppdjl
Unregistered / Unconfirmed
GUEST, unregistred user!
注意要将两个表的字段的位置同步,
L
lwgygz
Unregistered / Unconfirmed
GUEST, unregistred user!
???
M
magicor
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
