[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. Protocoler

    Protocoler Elder - Старейшина

    Joined:
    10 Oct 2012
    Messages:
    51
    Likes Received:
    54
    Reputations:
    81
    Пишу базу данных . Использую 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('Перерасчет произведен');
     
  2. drka

    drka New Member

    Joined:
    31 Mar 2012
    Messages:
    5
    Likes Received:
    1
    Reputations:
    0
    http://forum.antichat.ru/threads/424333/


    Интересует репетитор – профессионал который может научить правильному созданию многопоточных приложений и т.п.



    Может тут нужный мне человек есть.
     
Thread Status:
Not open for further replies.