We noticed something changed in de way the LoadAllDataAndDisconnect is working. We are currently trying to find out the cause for this issue. In the meantime, please use the traditional code with First, Next looping through the dataset.
procedure TForm4.WebClientConnection1AfterConnect(Sender: TObject);
var
I: Integer;
begin
TMSFNCGridDatabaseAdapter1.Active := False;
TMSFNCGrid1.BeginUpdate;
TMSFNCGrid1.ColumnWidths[0] := 150;
TMSFNCGrid1.ColumnWidths[1] := 100;
TMSFNCGrid1.ColumnWidths[7] := 350;
// TMSFNCGridDatabaseAdapter1.Columns[7].PictureField := True;
WebClientDataSet1.First;
TMSFNCGrid1.RowCount := 1;
while not WebClientDataSet1.Eof do
begin
for I := 0 to WebClientDataSet1.FieldCount - 1 do
TMSFNCGrid1.Cells[I, TMSFNCGrid1.RowCount] := WebClientDataSet1.Fields[I].AsString;
TMSFNCGrid1.RowCount := TMSFNCGrid1.RowCount + 1;
WebClientDataSet1.Next;
end;
TMSFNCGrid1.EndUpdate;
end;