ЦИКЛ НА ПЕРЕНОС ДАННЫХ!

[armrock]

Есть dbgrid на одной форме и есть stringgrid на другой. я хочу сделать перенос данных таким вот образом:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
form4.Show;

begin
Form4.StringGrid1.Cells[0,0]:='ччччч';
Form4.StringGrid1.Cells[1,0]:='сссс';
Form4.StringGrid1.Cells[2,0]:='ссссс';
Form4.StringGrid1.Cells[3,0]:='вввв';
Form4.StringGrid1.Cells[4,0]:='вввв';
Form4.StringGrid1.Cells[5,0]:='уувув';
Form4.StringGrid1.Cells[6,0]:='QQQQQQ';

s:=dbgrid1.DataSource.DataSet.field s[0].asstring;
form4.StringGrid1.Cells[0,1]:=s;
dbgrid1.DataSource.DataSet.next;
end;
end;

копирует первую ячейку и передвигается на одну ниже. А как сделать цикл что бы оно копировало все данные (они могут меняться)??? Всего должно заполниться 6 столбцов, а седьмой 'QQQQQQ' будет пустой...
Заранее спасибо!

[Базиля]

armrock
Вообще вашего вопроса не понял.
Ну чтож, осмелюсь предположить что вы не понимаете как обращаться с помощью цикла к каждому столбцу компонента ДБгрида.
Собственно так и будет выглядеть сам цикл:

for i:=1 to dbgrid1.Columns.Count do

Ну и при обращении к столбцу указываем параметр цикла:

dbgrideh1.DataSource.DataSet.Fields[i-1].AsString

Не запутайтесь в типах данных.

[armrock]

Сделал вот так но всёравно ошибка: но смотрит значения по диагонали=((( и записыват их в столбец=(

For i:=1 To dbgrid1.Columns.Count Do
Begin
    s:=dbgrid1.DataSource.DataSet.fields[i-1].asstring;
    form4.StringGrid1.Cells[0,i]:=s;
    dbgrid1.DataSource.DataSet.next;
end;
end;

поправте пожалуйста...
если ставлю фиксированое поле в dbgride то работает, но только со столбцом, а мне нужно что б прошло по всей таблице!

[armrock]

ооо и ещё если второй раз нажать на эту же кнопку то он запишет в столбец последнюю строку=(((

[armrock]

Всё сделал!!! ВСЕМ СПАСИБО!

begin
  j := 1;
  DBGrid1.DataSource.DataSet.First;
  while not DBGrid1.DataSource.DataSet.Eof do
  begin
    for i := 0 to DBGrid1.Columns.Count - 1 do
    begin
      Form4.StringGrid1.Cells[i, j] := DBGrid1.DataSource.DataSet.Fields[i].AsString;
    end;
    Inc(j);
    DBGrid1.DataSource.DataSet.Next;
    Form4.StringGrid1.RowCount:= Form4.StringGrid1.RowCount + 1 ;
  end;
   Form4.StringGrid1.RowCount:= Form4.StringGrid1.RowCount -1;
end;
end;
end;

[armrock]

Спасибо, но вот опять получилась ошибка:
Код тот же:

begin
  j := 1;
  DBGrid1.DataSource.DataSet.First;
  while not DBGrid1.DataSource.DataSet.Eof do
  begin
    for i := 0 to DBGrid1.Columns.Count - 1 do
    begin
      Form4.StringGrid1.Cells[i, j] := DBGrid1.DataSource.DataSet.Fields[i].AsString;
    end;
    Inc(j);
    DBGrid1.DataSource.DataSet.Next;
    Form4.StringGrid1.RowCount:= Form4.StringGrid1.RowCount + 1 ;
  end;
   Form4.StringGrid1.RowCount:= Form4.StringGrid1.RowCount -1;
end;
end;

Проблема в том, что когда я запускаю прогу, нажимая кнопку, в stringgrid скопировались все например 20 строк, а потом НЕ ЗАКРЫВАЯ ПРОГРАММУ, возвращаюсь на dbgrid и удаляю из неё некоторые строки или все полностью, сново нажимаю кнопку, а Данные всёравно остаються. Кароче говоря, данные только вносяться туда, но не убираються!!! Как сделать????

[Базиля]

Так что сделать то?
Убирать данные из ДБгрида?
Так это надо удалять тогда не из дбгрида, а из самой таблицы. ДБгрид никаком образом не отвечает за данные в таблице, он попросту их отображает, не более.

[armrock]

ТО что он отображает их я знаю, просто так понятнее... и я НЕПРАВИЛЬНО ОБЪЯСНИЛ ЗАГВОЗДКУ!!!!!!!

Кароче При запуске и первом нажатии на кнопку данные копируються в stringgrid, потом не закрывая программу удаляю данные из базы и снова нажимаю кнопку, данные пропадают и в stringgride, а потом снова вношу данные в базу, ну тоесть заполняю dbgrid и нажимаю кнопку, И ВОТ ТЕПЕРЬ УЖЕ ДАННЫЕ НЕ КОПИРУЮТЬСЯ В STRINGGRID... А НУЖНО ЧТО Б КОПИРОВАЛИСЬ!!!!!!!!!!!!!Вот=))

[Базиля]

armrock
Покажите код где реализовывается добавление записей в БД.

И ВОТ ТЕПЕРЬ УЖЕ ДАННЫЕ НЕ КОПИРУЮТЬСЯ В STRINGGRID... А НУЖНО ЧТО Б КОПИРОВАЛИСЬ!!!!!!!!!!!!!

Согласитесь логично - наверное добавлять попросту нечего.

[armrock]

А нету кода=)) я редактирую базу средствами DBNavigator....и непонял что значит добавлять нечего??