M messah Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-13 #1 在看了http://dev.csdn.net/article/67/67482.shtm这个文章后，为什么我的DBGRID中的数据中的第一列的数据不能导入到EXCEL中去，第一列的数据被你的代码编制的自动序列号1....99而代替了呢？谢谢
在看了http://dev.csdn.net/article/67/67482.shtm这个文章后，为什么我的DBGRID中的数据中的第一列的数据不能导入到EXCEL中去，第一列的数据被你的代码编制的自动序列号1....99而代替了呢？谢谢
M messah Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-13 #2 在看了http://dev.csdn.net/article/67/67482.shtm这个文章后，为什么我的DBGRID中的数据中的第一列的数据不能导入到EXCEL中去，第一列的数据被你的代码编制的自动序列号1....99而代替了呢？谢谢
在看了http://dev.csdn.net/article/67/67482.shtm这个文章后，为什么我的DBGRID中的数据中的第一列的数据不能导入到EXCEL中去，第一列的数据被你的代码编制的自动序列号1....99而代替了呢？谢谢
A Avalon Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-13 #3 把else 后面的iCount + 1改为iCount + 2 如下 for iCount := 0 to Target.Columns.Count - 1 do // begin if iCount = 0 then Sheet.cells[jCount + 1, iCount + 1] := IntToStr(jCount) //在第一列给自动编号 else Sheet.cells[jCount + 1, iCount + 2] := trim(Target.Columns.Items //插入数据[iCount].Field.AsString); end;
把else 后面的iCount + 1改为iCount + 2 如下 for iCount := 0 to Target.Columns.Count - 1 do // begin if iCount = 0 then Sheet.cells[jCount + 1, iCount + 1] := IntToStr(jCount) //在第一列给自动编号 else Sheet.cells[jCount + 1, iCount + 2] := trim(Target.Columns.Items //插入数据[iCount].Field.AsString); end;
M messah Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-13 #4 这样改了，DBGRID中第一列的数据还是没有到EXCEL中去啊
A Avalon Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-13 #5 干脆这样 for iCount := 0 to Target.Columns.Count - 1 do // begin Sheet.cells[jCount + 1, iCount + 2] := trim(Target.Columns.Items //插入数据[iCount].Field.AsString); end;
干脆这样 for iCount := 0 to Target.Columns.Count - 1 do // begin Sheet.cells[jCount + 1, iCount + 2] := trim(Target.Columns.Items //插入数据[iCount].Field.AsString); end;
