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


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

Авторизация

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



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


Подписка

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

Hits 67418380
9730
Hosts 3608939
1976
Visitors 53570923
9393

112


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

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

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

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


Тема: «Получение значение pn, qn по номеру узла » в форуме: Макро   Просмотров: 5111
 
Евгений
Постоянный посетитель
 
Всего сообщений: 78
Дата регистрации: 15.08.2013
Создано: 18.06.2020 13:23:22
 
 
Добры день.
Подскажите как можно получить значение pn и qn в макросе зная только номер узла.
В справке нашел метод Z(i), где i - номер строки. Но я нигде не нашел как получить номер строки для искомого узла.
Заранее спасибо.
 
Профиль
Наверх
Станислав Богданов
Модератор
 
Всего сообщений: 61
Дата регистрации: 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
 
Профиль
Наверх
Евгений
Постоянный посетитель
 
Всего сообщений: 78
Дата регистрации: 15.08.2013
Создано: 18.06.2020 14:37:05
 
 
Спасибо, буду пробовать
 
Профиль
Наверх
Евгений Машалов
Администратор

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



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


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







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