Просто DataSet.Bof = true и поэтому для первой записи дает -1
(если потом проскролить вниз и вверх то -1 нормально отображается как 1)
поставь защиту от -1 и будет счастье
ADOQuery.FieldByName('RecNo').value := ADOQuery.RecNo;
if ADOQuery.FieldByName('RecNo').value = -1 then
ADOQuery.FieldByName('RecNo').value := 1;
|
|