Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Нумерация строк 


Ghost!   (2002-01-14 17:30) [0]

Здравствуйте! Подскажите, плиз, как пронумеровать строки в DBGrid"e (чтоб в колонке No сверху вниз шли по порядку числа). Пробовал поставить на колонку No тип Autoincrement, но мне это не подходит, т. к. если новая запись вводится не в конец, а в середину DBGrid"a , то получается что-то вроде этого:
1
2
6
3
4
5
Мастера, подкажите что-нибудь, пожалуйста. Спасибо.



asafr   (2002-01-14 18:41) [1]

Допустим, имеется у тебя некий DataSet - TTable (Name:=Table1) или TQuery (Name:=Query1), в Properties->Query1.SQL, которого прописано, что-то вроде SELECT * FROM TABLE1.
Кликаешь дважды по DataSet (здесь Query1) и в появившейся форме Fields Editor создаешь вычисляемое поле (например Num, где FieldsKind:=fkCalculated, type Integer). В Events -> Query1 на onCalcFields пишешь
Query1Num.Value:=Query1.RecNo;
Только добавь необходимые условия, так как по умолчанию первая запись RecNo=-1, а тебе необходимо =1, но это не трудно - додумаешься сам.



Polevi   (2002-01-14 20:00) [2]

RecNo=-1 когда Dataset не реализует данное свойство



Desdechado   (2002-01-15 10:21) [3]

так что, получается у строки номер может меняться в процессе работы с гридом? а для чего он тогда нужен?




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
1-32186           AlexanderV            2002-01-29 10:45  2002.02.11  
Регистрация пользовательского шрифта на время выполнения программы


14-32331          Иван Шихалев          2001-12-19 17:51  2002.02.11  
Маленькая просьба к жителям Е-бурга


6-32312           Александр_1           2001-11-16 00:33  2002.02.11  
Трафик


3-32144           Doctor Vrach          2002-01-15 20:09  2002.02.11  
Помогите плиз - надо чтобы во время сложного запроса основное окно программы реагировало


1-32210           VictorT               2002-01-25 17:26  2002.02.11  
TMaskEdit