|
acomode un poco el codigo, y quedo asi:
procedure Tcomponentes.ADOTableFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := ListBox1.Items.IndexOf(ADOTable.FieldByName('Nombre iupac').AsString) = -1;
end;
Ahora ejecuta pero sigue sin Dejar de Visualizar el registro en el DBGrid que agregue en el ListBox.
que será?
|