パターンによって出力結果を変えたい。

質問

VB2005、DB2環境です。
Select文の結果で表示するコンボボックスの内容を
変えたいと思っています。

テーブルAに、
カラム1、カラム2、カラム3の3つの列があるとします。
このそれぞれには、0か1か2が入り、すべてが0になることはありません。
カラム1が1、カラム2が2、カラム3が0、または、
カラム1が1、カラム2が1、カラム3が2というように、3つのカラムに
1と2が使われていれば、コンボボックスのリストには、ON、OFFと表示
1、1、1だとか、1、1、0だとか、1しか使われていないのであれば、
コンボにはONとだけ、2、2、2、または2、0、0のように、2だけ
使われていればOFFと表示したいと思っています。
（0は見ず、1、2のどちらがあるかで判断）。

CASE文で作るかと思ったのですが、パターンが多いです。
何か簡単な方法がありましたら、ご教授ください。

回答No.1

noname#79209 · ベストアンサー

コンボボックス名をcmbComboBox、
変数、C1、C2、C3にカラム1～3の値が入っているとして、

Dim strListString As String

Select Case (C1 = 1 Or C2 = 1 Or C3 = 1) * (-1) + (C1 = 2 Or C2 = 2 Or C3 = 2) * (-2)
Case 1 '1しか使われていない
strListString = "ON"
Case 2 '2しか使われていない
strListString = "OFF"
Case 3 '1と2が使われている
strListString = "ON;OFF"
End Select

Me.cmbComboBox.RowSourceType = "Value List"
Me.cmbComboBox.RowSource = strListString

で如何でしょう。

回答No.2

noname#79209

#1です。
Accessでの例なので、Trueの値が(-1)として記述しています。
もしTrueの値が（1）なら、
(C1 = 1 Or C2 = 1 Or C3 = 1) * 1 + (C1 = 2 Or C2 = 2 Or C3 = 2) * 2
として下さい。