Использование StringGrid selectedText в разных событиях, delphi

Question

У меня есть форма с двумя кнопками с двумя разными событиями, одна из которых устанавливает заказ, чтобы другой был отклонен. Для моего stringgrid я выбираю записи из базы данных, а для событий buttonClick я создаю запрос UPDATE с advStringGrid.Selectedtext, значение которого я помещаю в запрос UPDATE. Но проблема в том, что когда я сначала нажимаю кнопку «Готово», а после этого нажимаю кнопку «Отклонить», не закрывая форму, значение строки остается только до первого щелчка. Возможно, theres вариант «немедленно» или без закрытия формы, чтобы получить новое значение для переменной advStringGrid.Selectedtext.

procedure TfTodoList.setRefusedbtnClick(Sender: TObject); 
var 
    i: Integer; 
begin 

    if (Sender = setRefusedbtn) and (State = 0) then 
    begin 

    qryExec.Sql.Text := 'Update KitchenOrderRow Set StatusID = 1' + 
     ' Where (OrderId in (Select OrderId from KitchenOrderHeader ' + 
     ' Where Invoice = ' + IntToStr(Orders[X].Invoice) + 
     ')) and (InvRowId = ' + IntToStr(Orders[X].InvRowId) + ')'; 

    advOrderGridClickCell(Sender, X, Y); 
    end 
    else if (State = 1) and (setRefusedbtn = Sender) then 
    begin 
    ProductName := advOrderGrid.SelectedText; 
    qryExec.Sql.Text := 'Update KitchenOrderRow Set StatusID = 1' + 
     ' where productName = ''' + ProductName + ''' and StatusID = ' + 
     IntToStr(qryStatusStatusID.asInteger) + ''; 
    State := 0; 
    // fk_lib.logisse(nil, qryExec.Sql.Text); 
    end; 

    qryExec.ExecSQL; 
    advOrderGrid.RemoveSelectedRows; 
end; 

Answer 1

Если вы обновляете некоторые значения в наборе данных, которые используются в DBGrid, вы должны обновить набор данных, подключенный к DbCrid. Закрыть/Открыть форму. После выполнения запроса обновления выполните следующие действия:

Grid.Datasorce.DataSet.Refresh; 

или

Grid.Datasorce.DataSet.Close; 
Grid.Datasorce.DataSet.Open; 

Update:

Если сетка не подключен напрямую с базой данных через datalink(datasource) вы можете обновить его, как выполнить ту же самую процедуру который используется для заполнения сетки данными.