OpenOffice.info

Hallo,
weiß jemand, wie man im Datenbankbrowser eine Tabellenzeile mit Basic markieren kann? Und vielleicht auch, wie man in Serienbriefen die in den Serienbrieffeldern automatisch den Text des aktuellen Datensatzes anzeigen kann (Also die Funktion, die das Icon "Daten in Felder" ausführt?
Das beileigende Bespielmakro lies t die selektierten Datensätze im Datenbankbrowser aus. Leider weiß ich nicht, wie man Datensätze mit Makro selektieren kann
SbxBOOL oSDP.select ( SbxVARIANT ) funktioniert leider nicht.
Moritz


Sub get_DBS_Selection
Dim oFrm1 As object, oFrm2 As object
Dim oDSB As object, oSDP As object
Dim sCol As String
Dim i As Integer, oRS As object
Dim sID As Integer
Dim oSel As object

oFrm1 = StarDesktop.getCurrentFrame()
oFrm2 = oFrm1.findFrame("_beamer",4)
oDSB = oFrm2.getController()
oSDP = oDSB.getSlaveDispatchProvider()

oSel = oSDP.GetSelection()
oRS = oSDP.getRowSet().createResultSet()
sCol = ""
sId = oRS.findColumn("Author")
For i=LBound(oSel) To Ubound(oSel)
If oRS.moveToBookmark(oSel(i)) Then

sCol = sCol & oRS.getString(sId) & Chr$(10)
Else
print "Erro."
Exit For
EndIf
Next i
MsgBox sCol
oRS.dispose()
End Sub