| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Страницы:   < 1 2 3 4 5 >

Муслик ©   (2008-06-27 13:48:00) 

Помогите разобратся с проблемой.
Есть три таблицы.

С первой таблицы я по двойному клику добавляю во вторую позиции и количество(позиции все разные) после того как всё сделано мне нужно в третью добавить данные из второй(это без проблем)
Проблема:
после я таблицу очищаю и заполняю новую, как мне добавить кол-во товара к существующему товару если товар из второй таблицы равен третьей, если товара не существует в третьей таблице добавить новый

---

Муслик   (2008-06-30 12:40:00) [41]

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

---

Dennis I. Komarov   (2008-06-30 12:29:00) [42]

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

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

---

ЮЮ   (2008-06-30 12:25:00) [43]

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

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

---

Муслик   (2008-06-30 12:24:00) [44]

впринципе срабатывает но неправильно срабатывает а ошибку найти не могу

---

Dennis I. Komarov   (2008-06-30 12:23:00) [45]

> [37] Муслик   (30.06.08 12:17)

Чем докажешь?

---

Муслик   (2008-06-30 12:17:00) [46]

ну почему несрабатывает вотэтот код


  if form6.Table1.Locate('Naimen', table1.Fields.Fields[1].Value, [loPartialKey]) then
  begin
   with form6.Table1 do
     begin
     if form6.Table1.Fields.Fields[3].IsNull then
      exit
      else
      begin
          ShowMessage('Åñòü òàêàÿ çàïèñü');
          edit;
          fields[4].Value:=form1.Table3.Fields.Fields[4].Value;;
          post;
          end;
   end;
   end
   else
         with form6.Table1 do
   begin
          edit;
          append;
          fields[2].Value:=form1.Table3.Fields.Fields[2].Value;
          fields[4].Value:=form1.Table3.Fields.Fields[4].Value;
          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 11:39:00) [47]

> ну вот потихоньку и учу.

не верю

---

Поросенок Винни-Пух   (2008-06-30 11:32:00) [48]

потому что после пробела в строке ничего нет

---

Муслик   (2008-06-30 11:31:00) [49]

ой извеняюсь! всё нормально

---

Муслик   (2008-06-30 11:26:00) [50]

Dennis I. Komarov ©  ну вот потихоньку и учу.

Поросенок Винни-Пух ©
Скажи а почему шаумесадж показывает только слово до пробела полностью строку не показывает тоесть
"кабель силовой" покажет только кабель

---

Dennis I. Komarov   (2008-06-30 11:23:00) [51]

> [30] Муслик   (30.06.08 11:20)


> в делфи нулёвый не отрицаю

Так за каким тогда тебе таблицы? Ищи букварь...

---

Муслик   (2008-06-30 11:21:00) [52]

Поросенок Винни-Пух ©
Спасибо за пример... вроде бы разобрался

---

Муслик   (2008-06-30 11:20:00) [53]

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

---

Поросенок Винни-Пух   (2008-06-30 11:18:00) [54]

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

---

Муслик   (2008-06-30 11:17:00) [55]

Не срабатывает, почему?



 if form6.Table1.Locate('Naimen', table1.Fields.Fields[2].Value, [loPartialKey]) or True then
 begin
   showmessage('Ñóùåñòâóåò');
   form6.Table1.Edit;
   form6.Table1.Append;
   form6.table1.fields.fields[2].value:=table3.fields.fields[2].value;
   form6.Table1.Post;
   end
       else
       form6.Table1.Edit;
   form6.table1.fields.fields[2].value:=table3.fields.fields[2].value;
   form6.table1.fields.fields[3].value:=table3.fields.fields[3].value;

       form6.Table1.post;
   end;


---

Dennis I. Komarov   (2008-06-30 11:13:00) [56]

> [26] Поросенок Винни-Пух ©   (30.06.08 11:11)


> showmessage(' НеСуществует');  

Тут ты погорячился :)

---

Поросенок Винни-Пух   (2008-06-30 11:11:00) [57]

if form6.Table1.Locate('Naimen', table1.Fields.Fields[1].Value, [loPartialKey]) then
showmessage('Не Существует');  
else
with form6.Table1 do
 begin
  ShowMessage('Нету там такой записи');
  First;
  while not eof do
   begin
    ShowMessage('Ищу это:' + table1.Fields.Fields[1].Value + #13#10 + 'а там это :' + FieldByName('Naimen').AsString)
    Next;
   end;
 end;

---

Dennis I. Komarov   (2008-06-30 11:11:00) [58]

Пора орешник возраждать... Соскучился я по падающим шарам :)

---

Поросенок Винни-Пух   (2008-06-30 11:02:00) [59]

я предпологаю что так надо?

Надо верить локейту, если используешь локейт.
Вот это точно надо.

---

Муслик   (2008-06-30 11:00:00) [60]

я предпологаю что так надо?
if form6.Table1.Locate('Naimen', table1.Fields.Fields[1].Value, [loPartialKey]) or True then
 showmessage('Не Существует');    end;

---

Страницы:   < 1 2 3 4 5 >

Наверх