for I := 0 to dbgrid2.SelectedRows.Count - 1 do begin dbgrid1.GotoBook(Pointer(dbgrid2.SelectedRows.Items[I])); end
补充 要选中行 for I := 0 to dbgrid2.SelectedRows.Count - 1 do begin dbgrid1.GotoBook(Pointer(dbgrid2.SelectedRows.Items[I])); dbgrid1.Append; dbgrid1.FieldByName('CustomerCode').AsString := dbgrid2.FieldByName('CustomerCode').AsString; dbgrid1.FieldByName('CustomerName').AsString := dbgrid2.FieldByName('CustomerName').AsString; 、、、、、、、、、、、 dbgrid1.Post; end; 一定OK
此方法如何实现
begin
dbgrid1.GotoBook(Pointer(dbgrid2.SelectedRows.Items[I]));
end
for I := 0 to dbgrid2.SelectedRows.Count - 1 do
begin
dbgrid1.GotoBook(Pointer(dbgrid2.SelectedRows.Items[I]));
dbgrid1.Append;
dbgrid1.FieldByName('CustomerCode').AsString :=
dbgrid2.FieldByName('CustomerCode').AsString;
dbgrid1.FieldByName('CustomerName').AsString :=
dbgrid2.FieldByName('CustomerName').AsString;
、、、、、、、、、、、
dbgrid1.Post;
end;
一定OK
dbgrid.FieldByName 能通过吗?
同志们,大家可以将实现的方法在我的贴子中陈列出来,供大家交流,
谢谢
还有一种方法是:
1.通过双击插入
2.使用选择插入
3.在grid中的某一字段中输入编号回车自动带出后边的字段
..........
大家一同学习