Вывод списка с уровнями вложенности в treeview из БД

[mixa33rus]

Хотя стала появляться ошибка "access violation at address 00000000 read of address 00000000"

У меня один DBGrid1 на 4 таблицы базы данных. В зависимости от того какой Sheet показан Show загружается определенная таблица (DataSource).

Загружается так:

  DBGrid1.DataSource:=DataModule3.DataSource1;
  DBGrid1.Columns[0].FieldName:='DATE';
  DBGrid1.Columns[0].Title.Caption:='Äàòà';
  DBGrid1.Columns[0].Width:=60;
  ...
  DBGrid1.Columns[5].FieldName:='COMMENT';
  DBGrid1.Columns[5].Title.Caption:='Êîììåíòàðèé';
  DBGrid1.Columns[5].Width:=100;

По обработчику двойного клика по DBGrid1 идет выгрузка из таблицы в различные компоненты. И тут ошибка:

      for i:=0 to TreeView6.Items.Count-1 do
         if DBGrid1.Fields[2].AsString = TreeView6.Items[i].text then
            with TreeView6 do

При трассировке данные DBGrid1.Fields[2].AsString равняются nill. Хотя в других Fields данные есть. А в DBGrid1 визуально Fields[2] все отображается. Ошибка происходит только тогда, когда была смена таблицы в DBGrid1.

Попробовал вставить

DBGrid1.Columns.Insert(0);

после DBGrid1.DataSource:=DataModule3.Dat aSource1; выше указанного кода. Ошибка не появляется, но создаются лишние поля.

Думаю может DBGrid1 полностью очищать перед заполнением, чтобы он был как сразу после загрузки формы без смены таблицы. Как это лучше сделать?

Скрин проги прикреплю

Сделал вот так

  DBGrid1.DataSource:=DataModule3.DataSource4;
  DBGrid1.Columns.Clear;
  DBGrid1.Columns.Insert(0);
  DBGrid1.Columns[0].FieldName:='DATE';
  DBGrid1.Columns[0].Title.Caption:='Äàòà';
  DBGrid1.Columns[0].Width:=60;
  DBGrid1.Columns.Insert(1);
  DBGrid1.Columns[1].FieldName:='SUMM_BY';
  DBGrid1.Columns[1].Title.Caption:='Ñóììà ïîêóïêè';
  DBGrid1.Columns[1].Width:=200;

Не очень хорошо, но работает исправно :D

Сделал - молодец. Только про кнопочку Правка не забывай. И когда копируешь из IDE делфи с кириллицей - раскладку клавиатуры кириллическую включай. А то на эти абры-кадабры тоскливо смотреть

[mixa33rus]

Помогите, пожалуйста)) уже столько времени убил на решении след задачи. Есть таблица перемещение денег между счетами и есть таблица самих счетов. Когда перемещаем деньги в количестве 'Х' со счета 'А' в счет 'B', в таблице счетов баланс должен отобразится как A: -X, B: X.

Все операции подсчета (UPADATE поля SUMM и дальнейший вывод таблицы на форму) происходят в хранимой процедуре при загрузке формы.

Код такой:

begin
UPDATE PLACE set SUMM=(
 (select sum(SUMM) from "MOVING" where "MOVING".NAME_PLACE_IN=:NAME)
-(select sum(SUMM) from "MOVING" where "MOVING".NAME_PLACE_OUT=:NAME)
) where NAME=:NAME;
  suspend;
end

Но при выполнение кода везде по null
Причем похожий код

(select sum(SUMM) from "IN" where "IN".NAME_PLACE=:NAME)
-(select sum(SUMM) from OUT where OUT.NAME_PLACE=:NAME)

выполняется как нужно. Но это уже другие таблицы.

По данным из скрина должно получится Сбербанк 1000, газпромбанк -1000

Криво, но сделал

[knight]

Второй скрипт правильный. Он работает с двумя таблицами
А ваш отнимает сумму от суммы одной и той же таблицы