Пробую так:
[code]
FDMemTableClient->Active = false;
FDQueryGetLastJson->FetchOptions->Unidirectional = false;
FDQueryGetLastJson->Open();
FDQueryGetLastJson->FetchAll();
FDMemTableClient->Data = FDQueryGetLastJson->Data;
TFieldDef *pNewDef = FDMemTableClient->FieldDefs->AddFieldDef();
pNewDef->Name = L"num";
pNewDef->DataType = fkInternalCalc;
FDMemTableClient->Active = true;
FDMemTableClient->First();
//****
void __fastcall TForm1Main::FDMemTableClientCalcFields(TDataSet *DataSet)
{
FDMemTableClient->Fields->FieldByName("num")->Value = DataSet->RecNo;
}
[/code]
В колонке пусто...
↧
