使用XLSfile.pas出現錯誤了(急急......) 我使用了以下這個XLSfile.pas在我的程序中出現了錯誤 http://delphi.ktop.com.tw/topic.php?topic_id=22993 導入的資料表中只要有一欄位為空的時候，導入就會出現問題Rang Check Error 錯誤，麻煩各位大大幫忙一下，謝謝! 完整的程序在這裡 http://delphi.ktop.com.tw/loadfile.php?TOPICID=15690703&CC=350917

    在datasettoxls這一段        while (not DS.eof) and (r <= xls.MaxRows) do
      begin
        for c:=0 to DS.FieldCount-1 do
          begin
            if DS.Fieds[c].isnull then
               xls.WriteField(r,c,'')
            else
               xls.WriteField(r,c,DS.Fields[c]);
          end;  
        inc(r);
        PB1.StepIt;
        Application.ProcessMessages;
        DS.next;
      end;

再試試看吧

或    

    在datasettoxls這一段        while (not DS.eof) and (r <= xls.MaxRows) do
      begin
        for c:=0 to DS.FieldCount-1 do
          begin
            if DS.Fieds[c].isnull then
               xls.WriteField(r,c,'""')
            else
               xls.WriteField(r,c,DS.Fields[c]);
          end;  
        inc(r);
        PB1.StepIt;
        Application.ProcessMessages;
        DS.next;
      end;

再試試看吧

類型不對呀 [Error] XLSfile.pas(80): Incompatible types: 'TField' and 'String'

應該是WriteField(r,c,DS.Fields[c]); 這一段需要傳入tfield作為參數 抱歉沒有仔細看 重點就是如果欄位值為null 就改以 "" 傳入 都說到這樣了 自己改改看 不行再反應 ok?

引言: 應該是WriteField(r,c,DS.Fields[c]); 這一段需要傳入tfield作為參數 抱歉沒有仔細看 重點就是如果欄位值為null 就改以 "" 傳入 都說到這樣了 自己改改看 不行再反應 ok?

我想並不是這個問題 我重新創建一個Project，然後導入這幾個檔案xlsfile.pas,wait_u.pas,exportform_u.pas 卻沒有問題，所以問題應該出再mainform這個窗體上

你使用什麼database呢 如果能夠提供資料庫檔案 那麼可能可以幫你測試看看程式碼...

引言: 你使用什麼database呢 如果能夠提供資料庫檔案 那麼可能可以幫你測試看看程式碼...

SQLSERVER資料庫，順便你用一個資料表，只要有一個空子段就可以測試呀 謝謝!

搞定了，謝謝各位.......