|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Filtered:=False Filtered:=true
Необходима ваша помощь!!!
Ниже приведен код, по нему я делаю фильтрацию, если после фильтрации в ADO найдется запись, - надо ее просто редактировать, а если нету никакой записи хотелось бы добавить новую запись вот у меня не получается можете ли хоть какой-то совет дать, а то у меня вообще не получается Код:
var m:integer; begin Form12.ADOTable1.Filtered:=False; Form12.ADOTable1.Filter:='TabN='''+ Form2.ADOTable2.Fields[0].Text+''''; Form12.ADOTable1.Filtered:=true; m:=Form12.ADOTable1.RecordCount; If m=1 then Form12.ADOTable1.Edit else Form12.ADOTable1.Insert; ........................... end; Последний раз редактировалось Admin, 14.12.2009 в 13:32. |
#2
|
||||
|
||||
1. Не вижу тегов.
2. Что именно не получается? Ошибка какая? И на какую строку ругается? 3. Или просто код не работает (тоесть нет эффекта, что с ним, что без него)? 4. Отладчиком пробивал? Всё правильно создаёшь? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
||||
|
||||
1. Поле TabN у тебя имеет строковый тип??
Код:
Form12.ADOTable1.Filter:='TabN='''+ Form2.ADOTable2.Fields[0].Text+''''; Код:
Form12.ADOTable1.Filter:='TabN='+ Form2.ADOTable2.Fields[0].Text; Код:
If m=1 then Form12.ADOTable1.Edit else Form12.ADOTable1.Insert; From VasYa with LoVe... |
#4
|
|||
|
|||
если после фильтрации нету никаких записей, то можно с легкостью сохранить данные (добавлять новую запись и сохранять значения)
а если найдется запись, то так ругается: ИЗМЕНЕНИЯ НЕ БЫЛИ УСПЕШНО ВНЕСЕНЫ ИЗ-ЗА ПОВТОРЯЮЩИХСЯ ЗНАЧЕНИЙ В ИНДЕКСЕ, КЛЮЧЕВЫХ ПОЛЯХ ИЛИ СВЯЗЯХ. ИЗМЕНИТЕ ДАННЫЕ В ПОЛЕ ИЛИ В ПОЛЯХ, СОДЕРЖАЩИХ ПОВТОРЯЮЩИЕСЯ ЗНАЧЕНИЯ, УДАЛИТЕ ИНДЕКС ИЛИ ПЕРЕОПРЕДЕЛИТЕ ЕГО, ЧТОБЫ РАЗРЕШИТЬ ПОВТОРЯЮЩИЕСЯ ЗНАЧЕНИЯ, И ПОВТОРИТЕ ПОПЫТКУ |
#5
|
|||
|
|||
Цитата:
|