![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#16
|
||||
|
||||
|
Hola Mando un procedimiento que hace lo que pides
procedure SacaNulos(DataSet: TDataSet); var i: integer; begin try with DataSet do begin edit; for i := 0 to fields.count do begin if fields[i].value = null then if fields[i] is TNumericField then fields[i].value := 0 else if fields[i] is TStringField then fieldl[i].value :='' else if fields[i] is TDateTimeField then fields [i]:='1/1/1900'; end; post; end; except end; end; |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|