タイトル | : コードの読み込み順に条件をつけたい。 |
記事No | : 12681 |
投稿日 | : 2008/07/03(Thu) 09:18 |
投稿者 | : てつ |
はじめまして、よろしくお願いします。 開発環境はVB6.0です。
OraDynaset.MoveFirst pvArrayDB.ReDim 0, lngReccnt - 1, 0, COL_MAX - 1 lngRow = 0 lngSetRow = 0 blnFlg = False Do Until OraDynaset.EOF pvArrayDB(lngRow, 0) = Format(objFLDS(0).Value, "###") pvArrayDB(lngRow, 1) = Format(objFLDS(1).Value, "###") pvArrayDB(lngRow, 2) = objFLDS(2).Value pvArrayDB(lngRow, 3) = Format(objFLDS(3).Value, "0") pvArrayDB(lngRow, 4) = Format(objFLDS(4).Value, "###")
'''コードとグリッドの連動(コンボボックスAライン)'''''''''''''''''''''''''''''''' If (Me.lblUny_cd2.Caption = objFLDS(0).Value) And (blnFlg = False) Then lngSetRow = lngRow blnFlg = True End If
'''グリッドの連動(コンボボックスBライン)'''''''''''''''''''''''''''''''''''''' If (Me.lblRkun_cd2.Caption = objFLDS(1).Value) And (blnFlg = False) Then lngSetRow = lngRow blnFlg = True End If
コンボボックス A B があります。コンボボックスAを使う時には、Aラインをのみを読み コンボボックスBを使う時には、Bラインのみを読みたいのですが、何か良い方法ありませんか?
最初に必ずAを読み込みます。 情報が足りなければ補足します。お願いします。
|