各位大大此有何解法? 我的table日期欄位是以string的方式 如 20021108 來存放 那在DBGrid顯示時如何以2002/11/08的方式來展現 以及新增或修改後 如改為 2002/12/28 後 如何 以20021228 的string 存回database

1.在TABLE元件按兩下~出現欄位視窗 2.按右鍵~選 New Field~會出現 New Field 視窗 3.Field properties 隨你填~Field Type 選 Calculated 4.在DBGRID按兩下~會出現 Columns 視窗 5.在Columns 視窗選擇你的日期欄位~並在屬性視窗將FieldName屬性改成你剛成新增的欄位 6.在 TABLE 的 OnCalcFields 裡撰寫程式 DataSet['你新增的欄位名稱'] := 你想要的日期格式 7.OK 完成 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

只要將欄位add fileds進該Table，於Object inspector中針對此TStringField之EditMask設成!9999/99/99;0;_，即可在DBgrid顯示出來，並且可修改資料，不需做任何程式控制，仍然存成yyyymmdd。

你可以自己寫一個日期轉換的Function來轉換    給你參考

//自訂輸出字串格式______________________________________________________________
function _MyStr(sDate : String ; iFlg : Integer):String;    begin
//iFlg = 1 : 20010102    ->  01/02/2001
//       2 : 01/02/2001  ->  20010102
//       3 : 20010102    ->  2001/01/02
//       4 : 20020102    ->  01/02/2001   else '  /  /    '
//       5 : 01/02/2001  ->  20010102     else ''
  Case iFlg of
    1:begin
        if Length(Trim(sDate)) <> 8 then Result := '??/??/????'
        else Result := Copy(sDate,5,2) '/' Copy(sDate,7,2) '/' Copy(sDate,1,4);
      end;
    2:begin
        if Length(Trim(sDate)) <> 10 then
        begin
          Result := '????????'; //<-8 個 ?
          Exit;
        end else Result := Trim(Copy(sDate,7,4)) Trim(Copy(sDate,1,2)) Trim(Copy(sDate,4,2));
        if Length(Result) <> 8 then
        begin
          Result := '????????';
          Exit;
        end;
        if not frmP0Main.g_isDebugHead then  //Debug Mode 時不做(發行時才做)
        begin
            try
              StrToInt(Result);  //<-用以檢查是否有空值或非數字
            except
              Result := '????????';
              Application.MessageBox(PChar('輸入日期格式不合法!!'),'警告訊息',MB_ICONWARNING);
            end;
        end;//if
      end;
    3:begin
        if Length(Trim(sDate)) <> 8 then Result := '??/??/????'
        else Result := Copy(sDate,1,4) '/' Copy(sDate,5,2) '/' Copy(sDate,7,2);
      end;
    4:begin
        if Length(Trim(sDate)) <> 8 then Result := '  /  /    '
        else Result := Copy(sDate,5,2) '/' Copy(sDate,7,2) '/' Copy(sDate,1,4);
      end;
    5:begin
        if Length(Trim(sDate)) <> 10 then Result := ''
        else Result := Copy(sDate,7,4) Copy(sDate,1,2) Cop(sDate,4,2);
      end;
  end;//Case
end;

ps:假設你的日期欄位長度為8 找你需要的段落 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@