To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=99308
------- Additional comments from [email protected] Tue Mar 9 10:54:13 +0000 2010 ------- The problem is resolved by this macro: REM Computation with a values described in a form - 9.3.2010 REM A table bounded with the form has the numeric fields A, B and text field T. REM The form fields Af, Bf and Tf are bounded with table fields A,B and T. REM The form was created in the design mode by such a way, to be its fields REM the first three items in navigator list! A form created with wizard has REM another items order and macro should be a bit more complicated. REM A nuber is taped from the keyboard into field Af! REM The push button starts this macro. REM In the field Bf will be described modified value from Af and in the field REM Tf text "Computed" after pushing the button. Sub ComputeInsideForm dim oForm as object dim oShape as object dim oController as object dim oControl as object dim sName as string dim vA as single dim i as integer oForm = ThisComponent.getDrawPage() oController = ThisComponent.getCurrentController() For i = 0 To 3 oShape = oForm.getByIndex(i) sName = oShape.control.name select case sName case "Af" oShape = oForm.getByIndex(i) oControl = oController.getControl(oShape.control) vA = oShape.control.value case "Bf" oShape = oForm.getByIndex(i) oControl = oController.getControl(oShape.control) oControl.Model.BoundField.updateInt( vA*2 ) case "Tf" oShape = oForm.getByIndex(i) oControl = oController.getControl(oShape.control) oControl.Model.BoundField.updateString( "Computed" ) end select next end sub --------------------------------------------------------------------- Please do not reply to this automatically generated notification from Issue Tracker. Please log onto the website and enter your comments. http://qa.openoffice.org/issue_handling/project_issues.html#notification --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
