Показать сообщение отдельно
Старый 21.11.2005, 16:43   #1  
ATimTim is offline
ATimTim
Участник
 
395 / 13 (1) ++
Регистрация: 10.06.2004
Адрес: Питер
Ошибка при пработе с Axapta Business Connection
Не могу заполнить listBox1 значениями из поля Name таблицы CustTable
На строчку кода listBox1.AddItem(CustTableBuffer.field('Name'),nil);
ругается ""Член группы не найден""
Подскажите, пожалуйста, в чем проблема.


PHP код:
uses   
   SysUtils
ComObjActiveX;
//..................
procedure TForm1.Button1Click(SenderTObject);
var 
axapta,
    
axaptaQuery,
    
AxaptaDataSource,
    
AxaptaQueryRun,
    
CustTableBufferVariant;
begin
  CoInitialize
(nil);
  
axapta := CreateOleObject('AxaptaCOMConnector.Axapta2');
  
axapta.Logon2'COM','1111','','','','','');

  
axaptaQuery      := axapta.CreateObject('Query');
  
axaptaDataSource := axaptaQuery.call('addDataSource',77);

  
axaptaQueryRun := axapta.CreateObject('QueryRun',AxaptaQuery);

  while 
axaptaQueryRun.call('Next') do begin
    CustTableBuffer 
:= AxaptaQueryRun.call('GetNo',1);
     
listBox1.AddItem(CustTableBuffer.field('Name'),nil); // не работает
  
listBox1.AddItem(CustTableBuffer.caption,nil);   //  работает без проблем }
   
end;
  
CoUninitialize();

end