請教諸位 DELPHI 提供 Fields editor 讓USER可以增加刪除欄位 可不可以 用程式去控制呢

引言: 請教諸位 DELPHI 提供 Fields editor 讓USER可以增加刪除欄位 可不可以 用程式去控制呢

補充說明 procedure TMainForm.qryPpctBeforeOpen(DataSet: TDataSet); var InvField : array [1..10] of TField; begin InvField[1]:=TIntegerField.Create(DataSet); with InvField[1] do begin Name:='InvAmount_1'; FieldKind:= fkCalculated; FieldName:='InvAmount_1'; Index:=0; end; end; 我的程式碼參考如上 請問觀念對嗎? 還有事件點對嗎?

http://bdn.borland.com/article/0,1410,16467,00.html http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25854 http://greatis.com/delphi/databases-adsdfield.html

procedure TForm1.Button1Click(Sender: TObject);
var
  Field: TField;
  i: Integer;
begin
  Table1.Active:=False;
  for i:=0 to Table1.FieldDefs.Count-1 do
    Field:=Table1.FieldDefs[i].CreateField(Table1);      Field:=TStringField.Create(Table1);
  with Field do
  begin
    FieldName:='New Field';
    Calculated:=True;
    DataSet:=Table1;
  end;
  Table1.Active:=True;
end;

發表人 - hagar 於 2004/04/26 18:23:28

看第一個迴圈 應該是加入已經存有的FIELD 可是我在測試時 使用BDE TABLE 必須先ACTIVE 這部分才會正常(有FIELD) 事先TABLE沒有ACTIVE Table1.FieldDefs.Count-1會=0    如果我用ADOquery SQL 是動態指定 不可能事先設為ACTIVE     請問我的測試有錯嗎 如果沒有 問題該如何解決呢    謝謝         

引言: http://bdn.borland.com/article/0,1410,16467,00.html http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25854 http://greatis.com/delphi/databases-adsdfield.html

procedure TForm1.Button1Click(Sender: TObject);
var
  Field: TField;
  i: Integer;
begin
  Table1.Active:=False;
  for i:=0 to Table1.FieldDefs.Count-1 do
    Field:=Table1.FieldDefs[i].CreateField(Table1);      Field:=TStringField.Create(Table1);
  with Field do
  begin
    FieldName:='New Field';
    Calculated:=True;
    DataSet:=Table1;
  end;
  Table1.Active:=True;
end;

發表人 - hagar 於 2004/04/26 18:23:28

先 Active 後得到 FieldDefs.Count 有什麼問題嗎？ 或者您可以用另一個 TTable 或 TADOQuery (然後 TableName 或 SQL 相同) 用這 TTable/TADOQuery 來取得 FieldDefs.Count.

引言: 先 Active 後得到 FieldDefs.Count 有什麼問題嗎？ 或者您可以用另一個 TTable 或 TADOQuery (然後 TableName 或 SQL 相同) 用這 TTable/TADOQuery 來取得 FieldDefs.Count.

先 Active 後得到 FieldDefs.Count 有什麼問題嗎？ 欄位無法正確對應顯示資料 必須加入 FieldDefs.Update; 已經測試OK囉 謝謝