Code: Alles auswählen
Sub SelectListbox
' bei Status geändert
Dim oForm, oListbox As Object
Dim LB_Item as integer
dim AktArtikelname as string
dim DataSource as object
dim ConnectToDB as object
dim Statement as object
dim Abfrageergebnis as Object
dim stSQL as string
dim i, j as long
oForm = ThisComponent.drawpage.forms.getbyindex(0)
oListbox = oForm.getByName("ListBox1")
LB_Item = oListbox.SelectedItems(0)
AktArtikelname=oListbox.StringItemList(LB_Item) '(oListbox.SelectedItems(0))
' auf Tabelle "Artikel" zugreifen und AktArtikelname suchen
DataSource=ThisComponent.Parent.DataSource
ConnectToDB=DataSource.GetConnection ("","")
Statement=ConnectToDB.createStatement
stSQL = "SELECT ""Artikelname"" FROM ""Artikel"" "
' WHERE ""Artikelname"" = '" +AktArtikelname+ "'"
Abfrageergebnis=Statement.executeQuery(stSQL)
i=0
j=0
while Abfrageergebnis.next and j=0
i=i+1
if Abfrageergebnis.getString(1) = AktArtikelname then j=i
wend ' nächsten Artikel
oform.reload()
oform.absolute(j)
end Sub
Mit LO 5.1.6.2 löscht er den aktuellen Artikelname?!?