- Code: Select all
procedure TframeGridBase.UpdateSingleGridRow(ID: String);
var
RowData: ISuperObject;
bmTemp: TBookmark;
strFieldName: String;
i: Integer;
begin
bmTemp := Self.gridDatasetProvider.DataSet.GetBookmark;
TADODataSet(Self.gridDatasetProvider.DataSet).Requery([TExecuteOption.eoAsyncFetch]);
Self.gridDatasetProvider.DataSet.GotoBookmark(bmTemp);
Self.gridDatasetProvider.DataSet.FreeBookmark(bmTemp);
// set the RowData from the refreshed dataset
RowData := SO();
for i := 0 to Self.gridData.JQGridOptions.ColModel.Count - 1 do
begin
strFieldName := Self.gridData.JQGridOptions.ColModel[i].SQLFieldName;
RowData.S[strFieldName] := Self.gridDatasetProvider.DataSet.FieldByName(strFieldName).AsString;
end;
RowData.SaveTo(UserSession.UserTempDir + 'test_rowdata.txt');
//
// WHY DOES THIS NOT UPDATE THE ROW IN THE GRID display?
//
Self.gridData.JQGridOptions.SelRow := ID;
Self.gridData.JQGridOptions.SetRowData(Self.gridData.JQGridOptions.SelRow, RowData, '');
end;
I've used this technique in the past with great success, but it's not working for some reason. All fields are lowercase so there shouldn't be a problem with case sensitivity.
Does anyone have suggestions?
Thank you in advance,
Scott