На главную страницу
Русский English
 


Поддержка
Форум
Техподдержка
Закрытый разделПерсональная

Авторизация

Запомнить меня на этом компьютере
  Забыли свой пароль?
  Регистрация



Поиск по сайту


Подписка

Изменение параметров

Hits 59657640
1717
Hosts 2589195
615
Visitors 46701004
1432

10


Главная / Поддержка / Форумы / Макро

Форум «Макро»

Версия для печати Версия для печати

Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация


Тема: «Получение значение pn, qn по номеру узла » в форуме: Макро   Просмотров: 4715
 
Евгений
Постоянный посетитель
 
Всего сообщений: 69
Дата регистрации: 15.08.2013
Создано: 18.06.2020 13:23:22
 
 
Добры день.
Подскажите как можно получить значение pn и qn в макросе зная только номер узла.
В справке нашел метод Z(i), где i - номер строки. Но я нигде не нашел как получить номер строки для искомого узла.
Заранее спасибо.
 
Профиль
Наверх
Станислав Богданов
Модератор
 
Всего сообщений: 54
Дата регистрации: 11.10.2012
Создано: 18.06.2020 14:26:49
 
 
Есть несколько вариантов
1. Перебор всех значений в цикле.
2. Выборка - метод "SetSel"
За подробностями в документацию и/или смотрим примеры макросов в дистрибутиве.

Код

set tNode = Rastr.Tables("node")
set cN = tNode.Cols("ny")
set cPn = tNode.Cols("pn")
set cQn = tNode.Cols("qn")

'вариант 1
Rastr.Printp "вариант 1"
For i = 0 To tNode.Size-1
    If cN.Zn(i) = 1 Then ' узел с номером 1
        Rastr.Printp "pn = " & cPn.Zn(i)
        Rastr.Printp "qn = " & cQn.Zn(i)
        Exit For
    End If
Next

'вариант 2
Rastr.Printp "вариант 2"
tNode.SetSel("ny=1")
indx = tNode.FindNextSel(-1)
do while indx <> -1
    Rastr.Printp "pn = " & cPn.Zn(indx)
    Rastr.Printp "qn = " & cQn.Zn(indx)
    
    indx = tNode.FindNextSel(indx)
loop
 
Профиль
Наверх
Евгений
Постоянный посетитель
 
Всего сообщений: 69
Дата регистрации: 15.08.2013
Создано: 18.06.2020 14:37:05
 
 
Спасибо, буду пробовать
 
Профиль
Наверх
Евгений Машалов
Администратор

 
Всего сообщений: 1000
Дата регистрации: 23.04.2007
Создано: 18.06.2020 15:32:00
 
 
Видео-туториал 2012 года
 
Профиль
Наверх



Читают тему
гостей: 1, пользователей: 0, из них скрытых: 0


Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация







Программный комплекс «RasrWin»
Программный комплекс «RastrWin»
© «RastrWin», 1988-2019