[Terio]

Подскажите пожалуйста, как сделать так, чтобы ADODataSet.Locate не обнуляла сделанные изменения.
Поясню на примере: на форме размещены ADOConnection, ADODataSet, DataSource, DBGridEh (из Ehlib) и одна кнопка.
Используется MS SQL Server, в базе одна таблица с полями: Cod (int), Name(char), Flag(bit).
В запросе ADODataSet: Select * From Table1
Изменения напрямую в БД запрещены.
На кнопке:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=5;
ADODataSet1.Locate('Cod',i,[]);
DBGridEh1.Columns.Items[2].Field.NewValue:='True';
ADODataSet1.Locate('Cod',i+1,[]);
end;

Если закоментировать предпоследнюю строчку, все нормально, но как только применяем Locate, все сделанные изменения сбрасываются
Может есть какой-то другой способ перейти на нужную строку в таблице?

[mav_c]

Сообщение от Terio

Подскажите пожалуйста, как сделать так, чтобы ADODataSet.Locate не обнуляла сделанные изменения.
Поясню на примере: на форме размещены ADOConnection, ADODataSet, DataSource, DBGridEh (из Ehlib) и одна кнопка.
Используется MS SQL Server, в базе одна таблица с полями: Cod (int), Name(char), Flag(bit).
В запросе ADODataSet: Select * From Table1
Изменения напрямую в БД запрещены.
На кнопке:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=5;
ADODataSet1.Locate('Cod',i,[]);
DBGridEh1.Columns.Items[2].Field.NewValue:='True';
ADODataSet1.Locate('Cod',i+1,[]);
end;

Если закоментировать предпоследнюю строчку, все нормально, но как только применяем Locate, все сделанные изменения сбрасываются
Может есть какой-то другой способ перейти на нужную строку в таблице?

Всё правильно. Ты переходишь с помощью locate на другую запись, а изменения не постишь!

А почему нельзя так ADODataSet.FieldByName('Flag').AsInteger := 1;
ADODataSet.Post();

[Terio]

Сообщение от mav_c

Всё правильно. Ты переходишь с помощью locate на другую запись, а изменения не постишь!

А почему нельзя так ADODataSet.FieldByName('Flag').AsInteger := 1;
ADODataSet.Post();

Значение поля Flag булевое.
Постить мне не надо. Физически, в таблице мне не нужно их фиксировать. Нужно просто чтобы отображалось значение True. Оно и отображается, пока Locate не воткнешь.
Почему при переходе Next() ничего не обнуляется, а при переходе
Locate(i+1) обнуляется?

[mav_c]

Сообщение от Terio

Значение поля Flag булевое.
Постить мне не надо. Физически, в таблице мне не нужно их фиксировать. Нужно просто чтобы отображалось значение True. Оно и отображается, пока Locate не воткнешь.
Почему при переходе Next() ничего не обнуляется, а при переходе
Locate(i+1) обнуляется?

function TCustomADODataSet.Locate(const KeyFields: string;
const KeyValues: Variant; Options: TLocateOptions): Boolean;
begin
DoBeforeScroll;
Result := LocateRecord(KeyFields, KeyValues, Options, True);
if Result then
begin
Resync([rmExact, rmCenter]);
DoAfterScroll;
end;
end;

Вот поэтому. И посмотри Next

[Terio]

Хорошо. А есть какой-нибудь другой способ перейти на нужную запись в гриде?

[mav_c]

Сообщение от Terio

Хорошо. А есть какой-нибудь другой способ перейти на нужную запись в гриде?

А в EhGrid'ах нет обычных гридов? Много проще загрузить данные в обычный грид из ДатаСета да и разумней. Как вариант можно использовать TClientDataSet и наполнить его ручками но тогда придётся тащить с собой midas.dll