[Bare]

jejejejejeje, obvio, jejejeje..
aqui esta el codigo:

Tabla->Open();
Tabla->Insert();

//--------------------------------------------------
Tabla->FieldByName("Casos_sospechosos_colera_est")->AsString = Edit1->Text;
Tabla->FieldByName("casos_diarrea_notif_SUIVE")->AsString = Edit2->Text;
Tabla->FieldByName("casos_sospechosos_coleratrat")->AsString = Edit7->Text;
Tabla->FieldByName("Total_casos_colera")->AsString = Edit8->Text;
Tabla->FieldByName("cepas_positivasvibrio")->AsString = Edit18->Text;
Tabla->FieldByName("Total_muestrasproc")->AsString = Edit19->Text;
Tabla->FieldByName("Deter_cloro")->AsString = Edit26->Text;
Tabla->FieldByName("Total_detercloro")->AsString = Edit27->Text;

//------------------------------------------------------
Tabla->FieldByName("ID_coberturadeteccion")->AsString = Edit3->Text;
Tabla->FieldByName("ID_tratoportuno")->AsString = Edit9->Text;
Tabla->FieldByName("ID_eficiencialab")->AsString = Edit20->Text;
Tabla->FieldByName("ID_cloracionagua")->AsString = Edit28->Text;
//------------------------------------------------------
Tabla->FieldByName("P_coberturadeteccion")->AsString = Edit14->Text;
Tabla->FieldByName("P_tratoportuno")->AsString = Edit15->Text;
Tabla->FieldByName("P_eficiencialab")->AsString = Edit21->Text;
Tabla->FieldByName("P_cloracionagua")->AsString = Edit29->Text;

Tabla->FieldByName("Año")->AsString = ComboBox1->Text;
Tabla->FieldByName("Localidad")->AsString = ComboBox2->Text;
Tabla->FieldByName("Evaluacion")->AsString = ComboBox3->Text;




Tabla->Post();
Application->MessageBox ("Datos Grabados en la BD","Aviso", MB_OK);

//Form1->Refresh();//---ESTO FUE LO QUE INTENTE PERO NADA..:confused: