Q&A

  • 동적으로 계산필드 추가.
BDE로 간단한 프로그램을 만들고 있습니다.
질문의 내용은

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDataSource := TDataSource.Create(Self);

  FTable := TTable.Create(nil);
  FTable.TableName := ExtractFilePath(Application.ExeName)+'Y_BUYING_M.DB';
  FTable.OnCalcFields := FTableCalcTest;

  FCalc := TCurrencyField.Create(FTable);
  with FCalc do
  begin
    FieldName := 'ACOUNT';
    FieldKind := fkCalculated;
    Calculated := True;
  end

  FDataSource.DataSet := FTable;
  dbgBuy.DataSource := FDataSource;
  FTable.Open;

  FTable.Fields.Add(FCalc)
end;

여기서 추가 된 필드를 어떻게 사용합니까.

제가 작성한 내용이 잘못된나요.

고수님들 도와 주세용....





1  COMMENTS
  • Profile
    구창민 2003.04.16 02:36
    필드 추가에 성공하셨다면 그냥 일반 필드 쓰듯 사용하심 될거 같네여..

    with DataSet do
      FieldByName('ACOUNT').AsInteger := 어쩌구 저쩌구..

    그럼~ 즐거운 프로그래밍 하시길~~