ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить номер строки в рекордсете?
7 сообщений из 7, страница 1 из 1
Как получить номер строки в рекордсете?
    #32345940
ayv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ayv
Гость
В цикле прохожу по рекордсету
Как определить номер текущей строки рекордсета?
...
Рейтинг: 0 / 0
08.12.2003, 07:50
| Ответить | Цитировать | Написать  
Как получить номер строки в рекордсете?
    #32345960
Roalex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roalex
Участник
1.Посчитать.
2.AbsolutePosition, но там свои заморочки.
...
Рейтинг: 0 / 0
08.12.2003, 08:49
| Ответить | Цитировать | Написать  
Как получить номер строки в рекордсете?
    #32345965
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
а зачем номер текущей строки рекордсета нужен?
...
Рейтинг: 0 / 0
08.12.2003, 08:58
| Ответить | Цитировать | Написать  
Как получить номер строки в рекордсете?
    #32346407
ayv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ayv
Гость
Извиняюсь, вопрос задал, а самому пришлось уйти
Пытаюсь в своем проекте использовать элемент ActiveX TreeView
Как обычно хочется, скорее. Нашел в форуме ссылку на пример использования
и пытаюсь подстроить к своей задаче.

Кое что получается, но есть и проблемы. Ощущение, что блуждаю в трех соснах, причем с тупой головой
Значит так
Есть таблица, назовем ее ЗАКАЗЧИКИ
ID (PrKey), FIO
с ней связана таблица ЗАКАЗЫ
ID_Z, NumZ (txt), ID(внешний ключ)

Селектом со внешним объединением получаю рекордсет
ID FIO NumZ
1 Иванов И-68
1 Иванов С-671
2 Петров П-89
3 Сидоров А-01
3 Сидоров О265
Для того, чтобы использовать TW мне нужно подсунуть в процедуру
таблицу вида
Group Name
01 Иванов
0101 И-68
0102 С-671
02 Петров
0201 П-89

и т.д.
Не могу придумать способа сделать это.
Пробовал с внешним циклом по ID (получал рекодсет без повторов ID)
Внутренний цикл по развернутому РС. Как-то все тупо, и не профессионально
Может кто подкинет идейку, как....
...
Рейтинг: 0 / 0
08.12.2003, 13:49
| Ответить | Цитировать | Написать  
Как получить номер строки в рекордсете?
    #32346436
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Вот по запросу, в котором выводятся заказчики и их заказы, нужно пройтись рекордсетом и если фамилии повторяются, то делать код - 01 (код у фамилии) + .01 - вот и всё.

Можно и запросом сделать - типа суммы с нарастающим итогом - пример есть на сайте в FAQ.

После этого получим таблицу нужного вида.
...
Рейтинг: 0 / 0
08.12.2003, 14:03
| Ответить | Цитировать | Написать  
Как получить номер строки в рекордсете?
    #32346462
ayv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ayv
Гость
Извиняюсь за назойливость
можно поподробнее
что значит по запросу пройтись рекордсетом?
чиркине хотя бы несколько строк, как это могло бы выглядеть
...
Рейтинг: 0 / 0
08.12.2003, 14:14
| Ответить | Цитировать | Написать  
Как получить номер строки в рекордсете?
    #32346585
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Public Function Test_Update()
Dim rs As New ADODB.Recordset
Dim Code_P As String
Dim NameZak As String
Dim NameZakN As String
Dim n As Long
Dim n1 As Long
rs.Open  "select * from Test order by Name asc" , CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
    NameZak = rs!Name
    If NameZak = NameZakN Then
        n1 = n1 +  1 
        If Len(CStr(n1)) =  1  Then
            rs!Code = Code_P &  ".0 " & n1
        Else
            rs!Code = Code_P &  "."  & n1
        End If
        rs.Update
    Else
        n1 =  0 
        NameZakN = rs!Name
        n = n +  1 
        If Len(CStr(n)) =  1  Then
            Code_P =  "0 " & n
            rs!Code = Code_P
        Else
            Code_P = n
            rs!Code = Code_P
        End If
        rs.Update
    End If
    rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Function


Структура таблички TEST
Code - текстовое поле с кодом
Name - наименование заказчика
Test - поле с заказами

Туда необходимо загнать данные в виде:
NULL Иванов NULL
NULL Иванов И-68
NULL Иванов И-69
NULL Петров NULL
NULL Петров И-68
NULL Петров И-69

Ну это так, написано под коньяком, но вроде всё работает. Наверняка есть способы лучге и с запросом, просто думать неохота:)
...
Рейтинг: 0 / 0
08.12.2003, 15:21
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить номер строки в рекордсете?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1709&tid=1677780]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 53ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 245ms
total:  415ms
созд. / загр.: 415ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]