[xax_nv]

Приветствую всех!
Опять обращаюсь за помощью.

Вот такой код срабатывает нормально.
mi.Do "Select * From " & TableName & " where nUch=""86:11:0102002:168"""
Если заменяю значение переменной ее переменной, т.е.:
mi.Do "Select * From " & TableName & " where nUch="" & knUch & """
то получаю ошибку:
"К выборке (Selection) нельзя обращаться, как к таблице."
В чем причина?

Далее я объединяю полилинии и мне нужно преобразовать объединенные полилинии в полигон.
mi.Do "Objects Combine Data nUch=nUch,nPoint=nPoint"
mi.Do "Commit Table " & TableName
mi.Do "obj_region=ConvertToRegion(obj_pline)"
mi.Do "Insert Into " & TableName & " (Object,nUch) Values (obj_region," & Chr(34) & knUch & Chr(34) & ")"
mi.Do "Commit Table " & TableName
При проверке на двух полилиниях в результате выполнения кода в полигон пеобразуется только одна полилиния, хотя они предварительно были объединены.
И еще. Как, не занося полигон как новый объект, существующий объек полилиния превратить в область?

[SergS]

1.
странно, что компилятор пропустил строку:
mi.Do "Select * From " & TableName & " where nUch="" & knUch & """

здесь должно быть так:
mi.Do "Select * From " & TableName & " where nUch=""" & knUch & """"

2.
расширьте пример, не видно формирований значений переменных obj_region и obj_pline, поэтому сказать что-нить на вопрос трудно

3.
существующий в таблице?
считываете номер текущей записи:
mi.Do "dim irow as integer"
mi.Do "irow = " & TableName & ".rowid"
Преобразуете объект для текущей записи
mi.Do "update " & TableName & " set obj = ConvertToRegion(obj) where rowid = irow"
mi.Do "undim irow"

место размещения dim и undim для irow сами выберите

[xax_nv]

Сергей, добрый день! Спасибо за помощь.
Да, с кавычками я что-то "протупил".
Вот более полный фрагмент кода:

[SergS]

а-а-а, ну конечно...

замените фрагмент:

mi.Do "Select * From " & TableName & " where nUch=""" & knUch & """"

mi.Do "dim irow as integer"
mi.Do "irow = " & TableName & ".rowid"
mi.Do "update " & TableName & " set obj = ConvertToRegion(obj) where rowid = irow"
mi.Do "undim irow"


следующим:

mi.Do "Select * From " & TableName & " where nUch=""" & knUch & """ into временная_таблица_sel noselect"
mi.Do "update временная_таблица_sel set obj = ConvertToRegion(obj)"
mi.Do "close table временная_таблица_sel"

здесь предполагается, что select c where nUch=""" & knUch & """
выберет 1 запись, и выборка временная_таблица_sel будет ее содержать. Обновляем всю таблицу "временная_таблица_sel" и все.

[xax_nv]

Сергей, огромное спасибо! Все получилось!