안녕하세요~

만해입니다.

어제 에러에 관해서 글을 올렸더니

소스를 요청 하셔서 소스 올립니다.

부디 고수님들의 도움 바랍니다.

void __fastcall TForm1::Button4Click(TObject *Sender)
{
int Row_Cnt =0; // Column Count;
unsigned long int SIpN;
unsigned long int FIpN;

  Dm001->Table1->Active = true;

  for (Row_Cnt=1 ; Row_Cnt < IpGrid->RowCount  ; Row_Cnt++ )
  {
   SIpN = IpToL(IpGrid->Cells[3][Row_Cnt]);
   FIpN = IpToL(IpGrid->Cells[4][Row_Cnt]);

   Dm001->Table1->Insert();
   Dm001->Table1->FieldByName("ComName")->AsString  =IpGrid->Cells[1][Row_Cnt];
   Dm001->Table1->FieldByName("EComName")->AsString =IpGrid->Cells[2][Row_Cnt];
   Dm001->Table1->FieldByName("SIp")->AsString      =IpGrid->Cells[3][Row_Cnt];
   Dm001->Table1->FieldByName("FIp")->AsString      =IpGrid->Cells[4][Row_Cnt];
   Dm001->Table1->FieldByName("RDate")->AsString    =IpGrid->Cells[5][Row_Cnt];
   Dm001->Table1->FieldByName("SIpN")->AsInteger    = SIpN;
   Dm001->Table1->FieldByName("FIpN")->AsInteger    = FIpN;
   Dm001->Table1->Post();
  }
  Dm001->Table1->Active = false;
}
이건 테이블에 자료 저장 하는 부분이고요

나머지 부분에서 Table를 건드리는건

그냥 Dm001->Table->Active = true | false;

이거 말고는 없습니다.

고수님들의 답변 바랍니다.