各位先進： 小弟現已成功在Delphi連上EXCEL，並可看到EXCEL內的資料。但是在顯示 EXCEL內的資料時，各個欄位的寬度都很大，是否有方法可以更改欄位的 寬度？謝謝。

設定 TField.DisplayWidth 或 TColumn.Width 試試.    --- 歡迎光臨 KTop 研究院--<-<-<@

您好!    小弟再補充一些, 除了在設計時期可使用timhuang前輩所說的TField和TColumn對應的屬性值來設定, 在執行時期也可用對應的程式碼來控制, 步驟分別如下:    設計時期: 使用TField.DisplayWidth: 請先雙擊資料集元件(如ADOTable, ADOQuery等), 開啟其欄位編輯器, 在編輯器空白處按右鍵, 選擇Add all fields, 將所有欄位加入到編輯器中, 分別點選每個欄位名稱, 在對應的屬性頁中的DisPlayWidth屬性即可調整顯示的寬度.(注: 要先將ADOTable連上ADOConnection, 并選擇好TableName, 如果是使用ADOQuery的話, 那就要在SQL屬性中寫入正确的SQL才可在欄位編輯器中加入欄位, 以下各方法此前要求相同) 使用TColumn.Width: 請先雙擊DBGrid元件,開開啟其欄位編輯器, 然后在空白處點擊右鍵, 選擇Add all fields, 將所有欄位加入到編輯器中, 分別點選每個欄位名稱, 在對應的屬性頁中的Width屬性即可調整顯示的寬度. //TField.DisPlayWidth屬性值的單位和TColumn.Width屬性值的單位是不同的, 您試試看就了解了. ============================================================================ 執行時期: 使用TField.DisplayWidth: 同樣的, 請先雙擊資料集元件(如ADOTable, ADOQuery等), 開啟其欄位編輯器, 在編輯器空白處按右鍵, 選擇Add all fields, 將所有欄位加入到編輯器中, 而后程式碼如下:(一般會將程式碼寫在Form的OnCreate事件中)

begin  
  ADOConnection1.Connected := True;
  ADOTable1.Open;
  ADOTable1DSDesigner.DisplayWidth := 20;//欄位編輯器中第一個欄位的寬度設定
  ADOTable1DSDesigner2.DisplayWidth := 30;;//欄位編輯器中第二個欄位的寬度設定
  //以此類推, 其它的欄位名稱即為ADOTable1DSDesignerN
end;

使用TColumn.Width: 同樣的, 請先雙擊DBGrid元件,開開啟其欄位編輯器, 然后在空白處點擊右鍵, 選擇Add all fields, 將所有欄位加入到編輯器中, 而后程式碼如下:(一般也會將程式碼寫在Form的OnCreate事件中)

begin
  ADOConnection1.Connected := True;
  ADOTable1.Open;
  DBGrid1.Columns[0].Width := 100;//欄位編輯器中第一欄位的寬度設定
  DBGrid1.Columns[1].Width := 100;//欄位編輯器中第二欄位的寬度設定
  //以此類推, 其它的欄位名稱即為DBGrid1.Columns[N]
end;

當同時使用TField.DisplayWidth和TColumn.Width時, 寬度的設定會以TColumn.Width為准. 參考看看! ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/09/02 01:52:56

------
忻晟