各位高手 請教教我啊!! THANKS!!    Dbgrid 欄位問題 如下    圖1:原欄位名稱如下 圖2: TABLE 2 欄位 如下 如何將圖1的欄位名稱 A001 透過圖2 (TABLE2) 改成 9/1夜 A001 ~ AXXX 欄位名稱依此類推 圖3 :想得到結果如下 : 發表人 - miguel 於 2003/09/19 16:58:37

先使用StrUtils單元，以便使用LeftStr函數。     

 
procedure TForm1.tabTable1AfterOpen(DataSet: TDataSet);
var i : word;
begin
//
  for i := 1 to tabTable1.FieldCount-1 do begin  //從1到欄位數，第0個是idno，所以省略
    with tabTable2 do begin
      //移到table2的該欄位代號
      if Locate('欄位代號',DBGrid1.Columns[i].FieldName,[loCaseInsensitive]) then
        DBGrid1.Columns[i].Title.Caption := FormatDateTime('mm/dd',tabTable2['日期']) + LeftStr(tabTable2['班別'],2);
    end;
  end; //for end
end;    

範列檔案下載http://delphi.ktop.com.tw/loadfile.php?TOPICID=11788532&CC=263648 ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

------
月夜 光明 藍更愁

其實你可以在DBGrid顯示出來之前, 動態的將其欄位顯示改掉, 這段程式碼可以寫在FormShow的Event裏面: for n:=0 to DBGrid1.Columns.Count-1 do begin s := DBGrid1.Columns[n].FieldName; if Table2.Locate('欄位代號', s, []) then begin DBGrid1.Columns[n].Title.Caption := Table2.FieldByName('日期').AsString; // 這段的格式問題, 應改可以解決罷...:) end; end;

感謝 a6475 詳盡的解答!!< >< > 真是 太感謝 你了!! 也謝謝 mike519 的 回覆!! < >< >