Ich gehe mal davon aus, dass Du die Daten in einem Formular mit einem Tabellen-Kontrollfeld eingibst...
In diesem Fall kannst Du die Eigenschaft "nur lesen" der 3 Spalten mit einem Makro steuern:
Code: Alles auswählen
sub Readonly_Veraendern
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms(0)
oGridcontrol = oForm.getByINDEX(0)
oListboxHaken = oGridcontrol.getByINDEX(4)
oListbox1 = oGridcontrol.getByIndex(5)
oListbox2 = oGridcontrol.getByIndex(6)
oListbox3 = oGridcontrol.getByIndex(7)
select case oListboxHaken.getcurrentvalue
case 1
oListbox1.readonly = false
oListbox2.readonly = false
oListbox3.readonly = false
case else
oListbox1.readonly = true
oListbox2.readonly = true
oListbox3.readonly = true
end select
end sub
Wobei die Spalte mit dem Haken die 5. Spalte im Tabellenkontrollfeld sein muss (oGridcontrol.getByINDEX(4)) sonst entsprechend ändern, die anderen Indizes genauso...
Dieses Makro weist Du den 3 anderen Spalten zu, und zwar dem Ereignis: "Bei Fokuserhalt"
g
Ich gehe mal davon aus, dass Du die Daten in einem Formular mit einem Tabellen-Kontrollfeld eingibst...
In diesem Fall kannst Du die Eigenschaft "nur lesen" der 3 Spalten mit einem Makro steuern:
[code]sub Readonly_Veraendern
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms(0)
oGridcontrol = oForm.getByINDEX(0)
oListboxHaken = oGridcontrol.getByINDEX(4)
oListbox1 = oGridcontrol.getByIndex(5)
oListbox2 = oGridcontrol.getByIndex(6)
oListbox3 = oGridcontrol.getByIndex(7)
select case oListboxHaken.getcurrentvalue
case 1
oListbox1.readonly = false
oListbox2.readonly = false
oListbox3.readonly = false
case else
oListbox1.readonly = true
oListbox2.readonly = true
oListbox3.readonly = true
end select
end sub[/code]
Wobei die Spalte mit dem Haken die 5. Spalte im Tabellenkontrollfeld sein muss (oGridcontrol.getByINDEX(4)) sonst entsprechend ändern, die anderen Indizes genauso...
Dieses Makro weist Du den 3 anderen Spalten zu, und zwar dem Ereignis: "Bei Fokuserhalt"
g