Записи в таблице

← →
ЮЮ © (2008-06-30 12:25) [40]

поставь брэкпоинт и пройдись по коду с плмощью F8.

И что значит "не спабатывает"? Кот должен работать, а не срабатывать.

← →
Dennis I. Komarov © (2008-06-30 12:29) [41]

> [39] Муслик (30.06.08 12:24)

Он "срабатывает" так как ты его написал

← →
Муслик (2008-06-30 12:40) [42]

Dennis I. Komarov ©
ну да а как правильно нужноо?

← →
Dennis I. Komarov © (2008-06-30 12:51) [43]

> [42] Муслик (30.06.08 12:40)

Смотря кому нужно.

← →
Муслик (2008-06-30 13:09) [44]

ну мне естествеено

← →
Dennis I. Komarov © (2008-06-30 13:16) [45]

> [44] Муслик (30.06.08 13:09)

Ну вот ты и написал. А написал так, потому что в букварь не смотрел

← →
Муслик (2008-06-30 13:32) [46]

спасибо разобрался не в той таблице исккал

← →
Муслик (2008-06-30 13:35) [47]

единственная проблема возникла как мне добавить весь список товара а не по одному

← →
Сергей М. © (2008-06-30 13:39) [48]

> как мне добавить весь список

СписокТовара.First;
while not СписокТовара.Eof do
begin
.. добавить куда-то там, куда тебе надо, текущую запись из СписокТовара
СписокТовара.Next;
end;

← →
clickmaker © (2008-06-30 13:41) [49]

> добавить весь список товара

если TTable, то можно BatchMove

← →
Муслик (2008-06-30 13:51) [50]

делаю так with form6.Table1 do begin edit; first; while not Eof do append; fields[2].Value:=form1.Table3.Fields.Fields[2].Value; fields[4].Value:=form1.Table3.Fields.Fields[4].Value; next; post;

добавляется только тот товар на котором стоит курсор, и в добавок начал выскакивать dataset not in edit insert mode

← →
clickmaker © (2008-06-30 13:54) [51]

> edit;
> first;
> while not Eof do
> append;
> fields[2].Value:=form1.Table3.Fields.Fields[2].Value;
>
> fields[4].Value:=form1.Table3.Fields.Fields[4].Value;
>
> next;
> post;

прямо как в анекдоте "эрекция, эякуляция..." слова нравятся? смысл вообще всех этих edit, append, post понимаем?

← →
Муслик (2008-06-30 14:25) [52]

ну да , ну без едита он не будит записывать данные в таблицу то

← →
Dennis I. Komarov © (2008-06-30 14:41) [53]

> [52] Муслик (30.06.08 14:25)

а POST?

← →
clickmaker © (2008-06-30 14:48) [54]

> без едита он не будит записывать данные

у тебя там Append
зачем edit-то в начале? Тем более, что first сбросит состояние датасета в dsBrowse

← →
Муслик (2008-06-30 14:50) [55]

почему тогда

with form6.Table1 do begin first; while not Eof do append; fields[2].Value:=form1.Table3.Fields.Fields[2].Value; fields[4].Value:=form1.Table3.Fields.Fields[4].Value; next; post;

при водит к dataset not in edit insert mode и ничего не происходит

← →
Dennis I. Komarov © (2008-06-30 14:55) [56]

> [55] Муслик (30.06.08 14:50)

Может все-таки почитаешь, а?

with form6.Table1 do begin first; while not Eof do begin Edit; fields[2].Value:=form1.Table3.Fields.Fields[2].Value; fields[4].Value:=form1.Table3.Fields.Fields[4].Value; post; next; end; end;

Но твой код страшен как ...

← →
Игорь Шевченко © (2008-06-30 14:55) [57]

Муслик (30.06.08 14:50) [55]

Книжку уже почитай, не морочь людям голову.

← →
Dennis I. Komarov © (2008-06-30 14:56) [58]

> при водит к dataset not in edit insert mode и ничего не
> происходит

А вот это ты нам теперь расскажи

← →
clickmaker © (2008-06-30 14:56) [59]

справку по Post читал?
Dataset methods that change the dataset state, such as Edit, Insert, or Append, or that move from one record to another, such as First, Last, Next, and Prior automatically call Post.

← →
Муслик (2008-06-30 14:57) [60]

dataset not in edit insert mode всё равно

← →
Плохиш © (2008-06-30 15:01) [61]

Прикольная ветка, уже 60 постов :-))

← →
Поросенок Винни-Пух © (2008-06-30 15:02) [62]

dataset not in edit insert mode всё равно

спасибо разобрался не в той таблице исккал

аналагична

← →
Dennis I. Komarov © (2008-06-30 15:07) [63]

> dataset not in edit insert mode всё равно

И кто в этом виноват?

← →
Муслик (2008-06-30 15:37) [64]

ВСЁ заработало только к отдельно позиции щаз ваще ошабка вышеприведённая

if form6.Table1.Locate("Naimen", table3.Fields.Fields[2].Value, [loPartialKey]) then begin with form6.Table1 do begin if form6.Table1.Fields.Fields[2].IsNull then exit else begin ShowMessage("Åñòü òàêàÿ çàïèñü"); edit; fields[4].Value:=IntToStr(StrToInt(form1.Table3.Fields.Fields[4].Value)+StrToInt(fields[4].value)); post; end; end; end else with form6.Table1 do begin first; while not Eof do edit; fields[2].Value:=form1.Table3.Fields.Fields[2].Value; fields[4].Value:=form1.Table3.Fields.Fields[4].Value; next; post; while not eof do begin ShowMessage("Èùó ýòî:" + form1.table3.Fields.Fields[2].Value + #13#10 + "à òàì ýòî :" + FieldByName("Naimen").AsString); Next; end; end end;

← →
Dennis I. Komarov © (2008-06-30 15:43) [65]

Удалено модератором

← →
Муслик (2008-06-30 15:52) [66]

Удалено модератором

← →
Игорь Шевченко © (2008-06-30 15:55) [67]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

читать до полного и окончательного просветления.

← →
Dennis I. Komarov © (2008-06-30 15:58) [68]

Удалено модератором

← →
Муслик (2008-06-30 16:04) [69]

Удалено модератором

Зря ты это спрашиваешь, вдруг кто то ответит.

где у меня ошибка?

Вот здесь, причем много:

ВСЁ заработало только к отдельно позиции щаз ваще ошабка вышеприведённая

← →
Муслик (2008-06-30 16:09) [72]

Удалено модератором

ты спрашиваешь - мы отвечаем.

Удалено модератором

← →
Муслик (2008-06-30 16:40) [75]

скажите где в коде проблема ошибка

например здесь:

while not Eof do
edit;
fields[2].Value:=form1.Table3.Fields.Fields[2].Value;
fields[4].Value:=form1.Table3.Fields.Fields[4].Value;
next;
post;

← →
Муслик (2008-06-30 16:44) [77]

Удалено модератором

← →
Муслик (2008-06-30 16:49) [79]

Удалено модератором

Записи в таблице Найти похожие ветки