Значение поля из формы (на основе sql-запроса) в макрос

[adi_den2013]

Форма сделана на основании запроса:
SELECT SUM( "Остаток Дт на н/м" ) AS "ostd_n", SUM( "Остаток Кт на н/м" ) AS "ostk_n", SUM( "Обороты Дт" ) AS "obd", SUM( "Обороты Кт" ) AS "obk", SUM( "Остаток Дт на к/м" ) AS "ostd_k", SUM( "Остаток Кт на к/м" ) AS "ostk_k" FROM "BALANS"

Результат выводится в виде таблицы из одной строки. Как мне "достучаться" до значений полей? Пока получилось только до имен 


Sub err_balans(oEvent as Variant)                                     '
  Dim oForm, oForms,oForm2
  Dim oDrawPage as Object

  Dim oStatement As Object
  Dim oDBSource As Object
  Dim oConnection As Object
  Dim oDatabaseContext As Object
'

  oDatabaseContext = createUnoService( "com.sun.star.sdb.DatabaseContext" )
  oDBSource = oDatabaseContext.GetByName("balans")
  oConnection = oDBSource.GetConnection("", "")   
  oStatement = oConnection.createStatement()
  oStatement.ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE 
   

  oForms  = ThisComponent.getDrawPage().getForms()
  oForm   = oForms().getByName("Proverka")             
  box_obd = oForm.Columns.ElementNames(2)                      '
  box_obk = oForm.Columns.ElementNames(3)
  box_ostdk=oForm.Columns.ElementNames(4)
  box_ostkk=oForm.Columns.ElementNames(5)
  ...
  здесь должен быть переход на значение поля
<значение>.
  ...

  if <значение>.box_ostdk<><значение>.box_ostdkk then
     MsgBox "Баланс не сошелся!"
     else
     MsgBox "Баланс сошелся!"
  Endif 
End Sub

[JohnSUN]

А не хочешь выдирать его прямо из oEvent ?

Код Выделить Развернуть

REM Значение объекта-формы можно получить прямо от кнопки, нажатой в этой форме
oForm = oEvent.Source.getModel().getParent()
REM Выдернем из "формы" (фактически - из текущей, активной строки) данные
dOstd_n = oForm.getDouble(oForm.findColumn("ostd_n"))


[adi_den2013]

Конечно, хочу

Спасибо, работает!