Top > OOobbs2 > 65

OOobbs2/65 Edit

  • サマリ: コンボボックスの「リスト内容」をマクロで書き換え
  • 環境: Basic
  • 状態: 解決
  • 投稿者: 牛若?
  • 投稿日: 2007-09-12 (水) 01:46:48

質問 Edit

Ms Accessから乗換えでBaseのフォームを作成中です。 コンボボックスの「リスト内容」をマクロで新しいSQL文に書き換えただけでは、リスト自体が更新されません。どうすればよいか、教えていただきたいのです。よろしくお願いします。

以下のようなマクロを書いています。

Dim Sqltext,Bu,Ka As string
'変数bu,kaはそれぞれリストボックスから値を得る
Sqltext="Select 名前 From 所属名簿 where 部=" & Bu & " And 課 
=" & Ka
Ctl2.Listsource=Sqltext

回答 Edit

Sub Main
  oDoc = ThisComponent
  oDrawPage = oDoc.getDrawPage()
  oForms = oDrawPage.getForms()
  sNames = oForms.getElementNames()
  oForm = oForms.getByName(sNames(0))
  
  sitemlist = array( "item 1", "item 2" )
  oComboBoxModel = oForm.getByName("ComboBox")
  oComboBoxModel.StringItemList = sitemlist
  
End Sub
  • はにゃ?? 2007-09-12 (水) 16:03:35
  • ありがとうございました。リストへの追加できました。ただ、データをクエリーから配列に渡す所でつまづいています。 -- 牛若? 2007-09-13 (木) 00:38:47

補足 Edit

OOO Base に、データベースの登録をしていなかったために、データソースを扱うことができずつまづいていました。 StarSuite 8Basic プログラミングガイドp185のクエリーオブジェクトの作成およびデータソースへの登録を行うサンプルコードを参考にしてデータを配列へ入れることができました。


感想,コメント,メモ Edit



Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes