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

解决方案 »

  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;