説明
ビューのプロンプトを編集します。
構文
Function EditPrompts(
objID As String,
prompt() As BIReportPrompt
) As Boolean
戻り値
操作が成功したかどうかを示します。
例
Sub EditPromptTableTest() Dim obiee As IBIReport Set obiee = New SmartViewOBIEEAutomation Dim prompts(0 To 3) As BIReportPrompt Dim firstPrompt(0 To 3) As String firstPrompt(0) = "Madison Office" firstPrompt(1) = "Merrimon Office" firstPrompt(2) = "Spring Office" firstPrompt(3) = "Tellaro Office" prompts(0).Values = firstPrompt Dim secondPrompt(0 To 0) As String secondPrompt(0) = "500" prompts(1).Values = secondPrompt Dim ThirdPrompt(0 To 5) As String ThirdPrompt(0) = "Communication" ThirdPrompt(1) = "Digital" ThirdPrompt(2) = "Electronics" ThirdPrompt(3) = "Games" ThirdPrompt(4) = "Services" ThirdPrompt(5) = "TV" prompts(2).Values = ThirdPrompt Dim ForthPrompt(0 To 0) As String ForthPrompt(0) = "8/15/2009" prompts(3).Values = ForthPrompt obiee.EditPrompts Empty, prompts