怎样将dbgrid的所有值赋给stringgrid?(包括字段名)

Question

很简单啊，几个循环就可以搞定了
先取出字段的名称，然后把它赋给STRINGGRID的第一行，然后在响应的取出一条记录，放在下一行，然后NEXT一下，把下一条记录的值放到再下一行不就可以了吗？

Answer 1

做两次循环，
第一次用　For i:=0 To DBGrid1.Columns.Count-1
         do StringGrid1.Cell[i,1]=DBGrid1.Columns[i].Title.Caption;第二次用数据表循环
       dataset.first;
　　　　While not dataset.eof do
       begin
            ...
            dataset.next;
       end;