Dbgrid 欄位問題 |
尚未結案
|
miguel
一般會員 發表:26 回覆:20 積分:9 註冊:2002-03-30 發送簡訊給我 |
|
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
先使用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 ..-----------βλμε------------.. ◎Oo月夜 光明 藍更愁oO◎ 藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁 |
mike519
一般會員 發表:2 回覆:6 積分:11 註冊:2003-07-13 發送簡訊給我 |
其實你可以在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;
|
miguel
一般會員 發表:26 回覆:20 積分:9 註冊:2002-03-30 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |