Кто-нибудь может помочь в этом направлении?
Сумел подключиться к базе, могу работать со справочниками. Но возникла проблема с некоторыми методами. Например, не могу присвоить переменной значение конкретного элемента справочника (не его реквизита, а именно самого элемента как объекта). Возможно ли это в VB6?

На код бы взглянуть

Dim v7 As Object
Dim Goods As Object

Set v7 = CreateObject("V77s.Application")
   result = v7.Initialize(v7.RMTrade, "/DD:\1C\Bases\PS_Clean\", "")
   Set Goods = v7.EvalExpr("CreateObject(""Справочник.Номенклатура"")")

   Goods.ВыбратьЭлементы
   i = 1
   Do While Goods.ПолучитьЭлемент = 1
       If Goods.ПринадлежитГруппе(Goods.НайтиПоНаименованию("Перец")) = 1 Then
           grdGoods.TextMatrix(i, 1) = Goods.Наименование
           i = i + 1
       End If
   Loop

End Sub
///

Выражение Goods.ПринадлежитГруппе(Goods.НайтиПоНаименованию("Перец")) он и не понимает, что не так?

НайтиПоНаименованию(<?>,,);
Синтаксис:
НайтиПоНаименованию(<Наименование>,<Режим>,<ФлагПоиска>)
Назначение:
Найти элемент справочника по наименованию.
Возвращает: 1 - если действие выполнено;
0 - если действие не выполнено (элемент не найден).
Соответственно принадлежит группе 1 или 0. такие группы есть?

Попробуй
If Goods.Родитель.Наименование="Перец" Then

Да есть такая группа. VB не понимает такие методы как:
Goods.НайтиПоНаименованию()
Goods.НайтиПоКоду()

В данном коде я пытаюсь выгрузить в таблицу только те элементы справочника, которые принадлежат определленой группе. Может это можно сделать как-то по другому? Да и вообще как мне позиционироваться на каком либо элементе справочника (либо документе), кроме как с помощью методов Выбрать и Получить?

Такой вариант работает. Большое спасибо за помощь. Но, все таки, как можно еще позиционироваться на нужном элементе (либо документе) и работать уже с ним?

VB всё понимает
Попробуй
If Goods.найтиПоНаименованию("Перец", 0) = 1 Then
         MsgBox Goods.Наименование
     End If
НайтиПоНаименованию возвращает 1 или 0 - это не группы, а числа - им не может принадлежать элемент справочника

Если ты спозиционируешся во время перебора выборки на элементе мимо порядка выборки, ты выборку похренишь.
If Goods.НайтиПоНаименованию("Перец")=1 Then
myGroupe=Goods.текущийЭлемент
End if
Goods.ВыбратьЭлементы
  i = 1
  Do While Goods.ПолучитьЭлемент = 1
      If Goods.ПринадлежитГруппе(myGroupe) = 1 Then
          grdGoods.TextMatrix(i, 1) = Goods.Наименование
          i = i + 1
      End If
  Loop

И в правду понимает... Вот балбес! Спасибо тебе большое еще раз! Побольше б таких людей было!

Твой пример кода не работает:
myGroupe=Goods.текущийЭлемент не понимает. Понимает -
Dim mygpoupe As Object
Set myGroupe=Goods.текущийЭлемент
Но тогда If Goods.ПринадлежитГруппе(myGroupe) = 1 Then не понимает

Sub test()
Dim v7 As Object
Dim Goods As Object
Dim myGroupe As Object
Set v7 = CreateObject("V77s.Application")
  Result = v7.Initialize(v7.RMTrade, "/DD:\1C\Bases\PS_Clean\", "")
  Set Goods = v7.EvalExpr("CreateObject(""Справочник.Номенклатура"")")

If Goods.НайтиПоНаименованию("Перец", 0) = 1 Then
Set myGroupe = Goods.текущийЭлемент
MsgBox myGroupe.наименование
End If
  Goods.ВыбратьЭлементы
  i = 1
  Do While Goods.ПолучитьЭлемент = 1
      If Goods.ПринадлежитГруппе(myGroupe) = 1 Then
          'grdGoods.TextMatrix(i, 1) = Goods.наименование
          MsgBox Goods.наименование
          i = i + 1
      End If
  Loop

End Sub

Выдает ошибку в строке If Goods.ПринадлежитГруппе(myGroupe) = 1 Then

Может
Dim mygpoupe As Object ' объявлешь mygpoupe
Set myGroupe=Goods.текущийЭлемент ' используешь myGroupe, не исключено что где-нить ещё опечатка?
Option Explicit используй, дабы в переменных не путаться

У меня всё работает, проверь ещё раз

Вернусь к обсуждению темы.

У меня заработал следующий вариант:
If Goods.ПринадлежитГруппе(myGroupe.ТекущийЭлемент()) = 1 Then

Но теперь у меня возникла следующаяпроблема - с бухгалтерским запросом. Создаю объект "БухгалтерскиеИтоги" и пытаюсь выполнить метод ИспользоватьСубконто, но тут VB ругается на ВидыСубконто.Номенклатура. Код примерно следующий:

Dim total As Object
Set total = v7.EvalExpr("CreateObject(""БухгалтерскиеИтоги"")")
total.ИспользоватьСубконто ВидыСубконто.Номенклатура, Good.ТекущийЭлемент(), 2

Взять в скобки выражение (ВидыСубконто.Номенклатура, Good.ТекущийЭлемент(), 2) не могу - VB не позволяет, а так он определяет ВидыСубконто как не объявленная переменная. Что делать? Может поможете с проблемой?

Проблема в ДНК
неужели трудно догадаться что если
не
CreateObject(""БухгалтерскиеИтоги"") а  v7.EvalExpr("CreateObject(""БухгалтерскиеИтоги"")")
то и не
ВидыСубконто.Номенклатура
а
v7.ВидыСубконто.Номенклатура

И что за недоумок всякую фигню в базу данных добавляет.

в базу знаний

(15)Как я понял ты про мой ДНК упомянул. Ну какой вышел...
Тем не менее благодарю за помощь. А может еще поможешь и с методом ВыполнитьЗапрос. Тут у меня тоже проблема (в ДНК).
Заранее благодарю.

18 Помогу, как только проблемы в ДНК перестанут мешать описать проблему с запросом.
Заранее благодарю.

Кстати,
If Goods.НайтиПоНаименованию("Перец", 0,1) = 1 Then - третий параметр добавь, дабы точно "перец" искал, а то мож у тебя есть какой-нить "перец ясный" или "перец де куэльяр" - находит элемент, а не группу, и ругается, или по коду ищи - во избежание.