请问如何把dbgrid里的记录读入到listview中？

Question

如题

Answer 1

要把dbgrid里的字段按顺序读到listview的column里，请问用什么方法？

Answer 2

with dbgrid.datasource.dataset do 
begin
for i:=0 to count-1 do 
 begin
   listview.items.add( fieldbyname("字段名").asstring)
 end;
end;
没有delphi调试，应该差不多了吧

Answer 3

可以在表单建立事件写入mg_chen(白沙沙水) 就ok了

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  TL:TListItem;
begin
  for i:=0 to dbgrid1.datasource.DataSet.FieldCount -1 do
    listview1.Columns.Add.Caption := dbgrid1.datasource.DataSet.FieldList.Strings[i];
  dbgrid1.datasource.DataSet.First;
  while not dbgrid1.datasource.DataSet.Eof do
  begin
    with listview1.items.add do
    begin
       for i:=0 to dbgrid1.datasource.DataSet.FieldCount -1 do
       begin          if i=0 then
             Caption :=dbgrid1.datasource.DataSet.Fields[i].AsString
          else
             SubItems.Add(dbgrid1.datasource.DataSet.Fields[i].AsString);
       end;
   end;
   dbgrid1.datasource.DataSet.Next;
  end;end;