如圖所示 我要如何改寫 才能把資料庫內的二個字串 塞到同一個row內 而且有跳行呢 excel.value:=table.fieldbyname('abc').asstring + ?? +table.fieldbyname('cba').asstring

Hi seedbcc,

var
  s : String;
begin
  s := Table1.FieldByName('abc').AsString;
  if not Table1.eof then
    begin
      Table1.Next;
      s := s   Chr(10)   Table1.FieldByName('abc').AsString;
      Table1.Prior;
    end;
  Excel.Value := s;
end;

使用 TBookMark 也可以，Delphi的Help內有範例，可以用GetBookmark,GotoBookmark, FreeBookmark 去找找看 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman