Thread Rating:
  • 565 Vote(s) - 2.66 Average
  • 1
  • 2
  • 3
  • 4
  • 5
RecordGrid でDropdownList を表示
08-16-2011, 03:37 PM,
#4
RE: RecordGrid でDropdownList を表示
(07-27-2011, 02:22 PM)hmino Wrote: domainにStandardStringDomainなどを使い方法はためしましたか?
デフォルトコンストラクタのパラメータのallowable-valueにリストに出したい値を設定すればドロップダウンリストとして出力されますよ。



StandardStringDomain の使い方を教えていただき、ありがとうございました。

ただ、提示いただいた方法では、グリッド上で指定した値がそのままレコードの値となると認識しています。

列挙型のname と value を、DropdownList のlabel とvalue に対応させるイメージで考えていたので、
下記のように実装してみました。

少しformatメソッドの記述方法が煩雑になっているので、
もっと簡潔な方法があれば教えてください。

Code:
||列挙体を RecordGrid (ReocrdSet)で利用するためのドメインクラス
{define-class public EnumDomain
  {inherits StandardStringDomain}
  
  field enum-type:EnumType
  
  {constructor public {default
                          enum-type:EnumType
                      }
    
    set self.enum-type = enum-type
    
    def ary-string:{Array-of String} = {new {Array-of String}}
    
    ||「指定なし」用のvalueを追加
    {ary-string.append ""}
    
    {with-compiler-directives allow-any-calls? = true do
        
        {for e in self.enum-type do
            
            {ary-string.append (e.name asa String)}
            || {ary-string.append  e.value asa String}
        }
    }
    
    {construct-super
        default-value = "",
        allowable-values = ary-string
        
    }
  }
  
  {method public {format x:any}:String
    
    
    {switch x
        
     case "" do
        {return "指定しない"}
        
     else
       || {return x asa String }
        let return-val:String = ""
        
        def val = {self.enum-type.new-from-name
                      (x asa String)
                  }
        {with-compiler-directives
            allow-implicit-any-casts?  = true,  
            allow-any-calls? = true
         do
            set return-val = val.value
        }
        
        {return return-val }
    }
  }
  
  
}


Messages In This Thread
RecordGrid でDropdownList を表示 - by umemura - 07-26-2011, 08:44 AM
RE: RecordGrid でDropdownList を表示 - by umemura - 08-16-2011, 03:37 PM

Possibly Related Threads...
Thread Author Replies Views Last Post
  RecordGrid の行の実際の高さの調べ方 kay 2 3,117 03-01-2016, 06:14 PM
Last Post: kay
  RecordGrid 列の表示/非表示について Yudai-s 2 4,383 05-19-2015, 06:54 PM
Last Post: Yudai-s
  RecordGrid のセル単位のフォーカス制御方法 kay 2 3,286 03-06-2015, 06:34 PM
Last Post: kay
  RecordGrid のセルのフォーカス可否制御 kay 2 3,579 03-02-2015, 07:56 PM
Last Post: kay
  RecordGrid の縦のスクロールバー umemura 3 5,154 01-20-2014, 10:38 AM
Last Post: umemura
  RecordGrid のパフォーマンスについて umemura 8 12,787 01-06-2014, 02:34 PM
Last Post: umemura
  RecordGrid の NavigationPanel について umemura 2 5,117 08-23-2011, 08:52 AM
Last Post: c-s
  RecordGrid で オートコンプリート umemura 1 4,744 07-29-2011, 10:58 PM
Last Post: umemura
  RecordGrid での右詰め umemura 3 6,012 07-29-2011, 01:32 PM
Last Post: c-s
Forum Jump:


Users browsing this thread:
1 Guest(s)

MyBB SQL Error

MyBB has experienced an internal SQL error and cannot continue.

SQL Error:
1017 - Can't find file: 'mybb_threadviews' (errno: 2)
Query:
INSERT INTO mybb_threadviews (tid) VALUES('157')