Здравствуйте! Есть таблица, несколько полей имеют логический тип Boolean. Нужно передать данные в форму. Все данные, кроме логических, спокойно передаются в Форму. Как это сделать? Вот часть кода моего макроса:
Sub Main
Dim sForm, SrhIN, SrhTpCrts
sForm = ThisComponent.Drawpage.Forms.getByName("SrhMain")
SrhIN = sForm.getByName("SrhBoxIN")
Const dbName="cartrigi"
DIM sConnectToDataBase AS Object, sStatement AS Object, sDbContext AS Object, sDataSource AS Object
DIM sSQL as String
If SrhIN.text<>"" then
sDbContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
sDataSource=sDbContext.getByName(dbName)
sConnectToDataBase=sDataSource.getConnection("","")
sStatement = sConnectToDataBase.createStatement()
sSQL= "SELECT ""Брак"",""Пустой"",""Утиль"",""Склад"",""Выдан"",""Запр"" FROM ""Картриджи"" WHERE ""ИНКр"" = '" & SrhIN.text & "'"
DIM sRes, SrhBrks, SrhEmpts, SrhUtls, SrhSklds, SrhVyds, SrhZprs
sRes=sStatement.executeQuery(sSQL)
SrhBrks = sForm.getByName("SrhBrk")
SrhEmpts = sForm.getByName("SrhEmpt")
SrhUtls = sForm.getByName("SrhUtl")
SrhSklds = sForm.getByName("SrhSkld")
SrhVyds = sForm.getByName("SrhVyd")
SrhZprs = sForm.getByName("SrhZpr")
If sRes.next() Then
SrhBrks.state=sRes.getBoolean(1)
SrhEmpts.state=sRes.getBoolean(2)
SrhUtls.state=sRes.getBoolean(3)
if sRes.getBoolean(4) then SrhSklds.state=true
SrhVyds.state=sRes.getBoolean(5)
SrhZprs.state=sRes.getBoolean(6)
else
msgbox "Такого номера НЕТ."
EndIf
DIM sDb AS Object
sDb=sConnectToDataBase(dbName)
sDb.close()
sDb.dispose()
Else
msgbox "Номер не введён"
EndIf
End Sub
