忍者ブログ

名もないSEの備忘録

仕事や気になったことをわすれないように。。。。。


[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。


[Top]

にほんブログ村 IT技術ブログ IT技術メモへ
【意外と知らないIT用語】ドメインって何? お名前.com

Notes - LotusScript - Viewから値を取得

ボタン押下時に、View(ビュー)から値を取得するサンプルコード

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim cuidoc As NotesUIDocument
  Dim selectData As Variant
  Dim vCcTemp As Variant
  Dim str As String
  Set cuidoc = ws.CurrentDocument
  Dim ss As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = ss.CurrentDatabase
  Set dc = ws.PickListCollection( 4,False, "サーバー名:", "DB名(XXX.nsf)", "View名", "ヘッダー", "XXXを選択して下さい" )
  
  If dc.Count <> 0 Then
    Set selectData = dc.GetFirstDocument 
    str = Cstr(selectData.Getitemvalue("フィールド名")(0))
  End If
  
  
End Sub



PR


[Top]

にほんブログ村 IT技術ブログ IT技術メモへ
【意外と知らないIT用語】ドメインって何? お名前.com

Comment

お名前
タイトル
E-MAIL
URL
コメント
パスワード




ランキングに参加しています。
にほんブログ村 IT技術ブログへ にほんブログ村 IT技術ブログ IT技術メモへ にほんブログ村 サラリーマン日記ブログ 30代サラリーマンへ にほんブログ村 サラリーマン日記ブログへ

Copyright © 名もないSEの備忘録 : All rights reserved

TemplateDesign by KARMA7

忍者ブログ [PR]

管理人限定

Google Adsense




NTTナレッジ・スクウェア株式会社

にほんブログ村 IT技術ブログ

にほんブログ村 IT技術ブログ IT技術メモへにほんブログ村 IT技術ブログ 開発言語へ

ブログランキング

カレンダー

02 2024/03 04
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

コメント

[03/02 まちこ]
[06/03 Smithd276]
[04/26 Pharmd247]
[04/25 Pharmk369]
[04/23 Smitha583]

ブログ内検索

ネットショッピング&じゃらん

忍者カウンター