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


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

Авторизация

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



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


Подписка

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

Hits 67419607
10957
Hosts 3609297
2334
Visitors 53572080
10550

106


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

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

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

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


Тема: «Получение значение pn, qn по номеру узла » в форуме: Макро   Просмотров: 5112
 
Евгений
Постоянный посетитель
 
Всего сообщений: 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