Пишу базу данных . Использую ClientDataSet с выводом в DbGrid . Нужно сделать перерасчет столбца цены по курсу указанному в едите. Никак не могу перевести в режим редактирования, вечная ошибка ClientDataset1: DataSet not in edit or insert mode . Пожалуйста, помогите. P.S. Там где закомментированные строки, там уже наковырялся до больной головы. Там уже не по порядку все. Сам код Code: buttonSelected := MessageDlg('Возможно цены уже указаны в гривнях, пересчет будет не верный, так как исходную сумма перерасчета будет умножена на курс. Перепроверьте перед продолжением !',mtCustom, [mbYes,mbCancel], 0); if buttonSelected = mrYes then begin try showmessage('OK'); ClientDataset1.DataSetField.DataSet.Edit; CLientDataset1.DataSource.Edit; ClientDataset1.Edit; //ClientDataSet1.First; for x:=1 to dbgrid1.DataSource.DataSet.RecordCount-1 do //s:=inttostr(dbgrid1.DataSource.DataSet.Fields.Fields[3].AsInteger*strtoint(edit3.Text)); ClientDataSet1.RecNo:=x; ClientDataset1.Append; //ClientDataset1.InsertRecord(ClientDataSet1.RecNo); //ClientDataSet1.First; // ClientDataSet1.DataSetField.DataSet.Insert; dbgrid1.DataSource.DataSet.Fields.Fields[3].AsString:=inttostr(dbgrid1.DataSource.DataSet.Fields.Fields[3].AsInteger*strtoint(edit3.Text)); finally Clientdataset1.post; ClientDataset1.Close; end; ShowMessage('Перерасчет произведен');
http://forum.antichat.ru/threads/424333/ Интересует репетитор – профессионал который может научить правильному созданию многопоточных приложений и т.п. Может тут нужный мне человек есть.