Datagrid

[pstrkim]

1.Мне нужно чтобы изменения внесенные в DataGrid записались в БД
только при закрытии формы. Это можно сделать только с помощью
отсоединенного набора записей?
2.Можно ли заполнить DataGrid без присоединения к набору записей
с помощью цикла?
3.Как посчитать итог по столбцу DataGrid без использования запроса SQL?

[Alexanbar]

1.Мне нужно чтобы изменения внесенные в DataGrid записались в БД
только при закрытии формы. Это можно сделать только с помощью
отсоединенного набора записей?

Как один из типовых вариантов реализации.

2.Можно ли заполнить DataGrid без присоединения к набору записей
с помощью цикла?

Почему бы и нет?
Читаем каждую запись (Recordset), записываем в ячейки значения полей (Recordset("Filed1").value), переходим к следующей записи (Recordset.MoveNext)

3.Как посчитать итог по столбцу DataGrid без использования запроса SQL?

Присвоить тексту в ячейке результат расчёта по формуле

[pstrkim]

Почему бы и нет?
Читаем каждую запись (Recordset), записываем в ячейки значения полей (Recordset("Filed1").value), переходим к следующей записи (Recordset.MoveNext)

Без присоединенного набора записей Пишет ошибку: Rowset not available

Присвоить тексту в ячейке результат расчёта по формуле

Можно пример расчета?

[Alexanbar]

Можно использовать MSFlexgrid (msflxgrd.ocx) вместо Datagrid.

Код: Выделить всё

dim db as database
dim rs as recordset
dim x as long

set db=opendatabase(.....)
set rs=db.openrecordset(.....)

with me.msflexgrid1
    rs.movelast
m1:
   i=i+1
    .textmatrix(1,i)=rs("поле1").value
    x=x+val(.textmatrix(1,i))
    .......
    if rs.Absoluteposition>0 then
      rs.moveprevious
      goto m1
    end if
   ............
   msgbox "Итого: " & x
end with

[pstrkim]

Спасибо!
А вот совсем простой вопрос:
В этот MSFlexGrid или MSHFlexGrid можно вводить значения в ячейки во время выполнения программы? Что-то я не понял как это сделать.

[Alexanbar]

Msflexgrid1.Textmatrix(i,j)="gjkgjgjgj"