|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Группове изменение данных в столбце DBGrid1
Есть код, который читает выделенную группу строк в столбце 3 из таблицы
DBGrid1. Код:
procedure TForm1.N24Click(Sender: TObject); var U:Integer; begin form1.AdoQuery1.First; for U := 0 to form1.DBGrid1.SelectedRows.Count-1 do begin form1.AdoQuery1.Bookmark:=form1.DBGrid1.SelectedRows[u]; form1.AdoQuery1Fields[3].AsString; //showmessage(AdoQuery1.Fields[3].AsString); end; end; Помогите прикрутить сюда функцию изменения данных в ячейке. То есть, выделяю группу строк в третьем столбце в котором разные названия (Начато , В процессе , Сделано) и меняю на 'Отпущено'. Получается после процедуры все выделенные строки имеют признак 'Отпущено'. |
#2
|
||||
|
||||
Код:
for i := 0 to DBGrid1.SelectedRows.Count - 1 do begin DBGrid1.DataSource.DataSet.Bookmark := DBGrid1.SelectedRows[i]; DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.Fields[3].AsString := 'Отпущено'; DBGrid1.DataSource.DataSet.Post; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
starcon (21.03.2016)
|