投稿日 | : 2007/06/05(Tue) 10:01 |
投稿者 | : こう |
Eメール | : |
URL | : |
タイトル | : Re^18: データグリッドから削除 |
Recordset.Filterを使うことにより出来ました。
DIVISION <any '3'にあたる部分をif文で条件付けて
mRs.Open StrSQL, mCn, adOpenDynamic, adLockOptimistic, adCmdText
If Text01.Text = "01" Or _
Text01.Text = "2A" Then
Else
mRs.Filter = "DIVISION <= 2"
End If
と言う具合です。昨日までRecordset.Filterを使うことなんて考えてませんでしたが
一気に出来てすごくうれしかったです。
魔界の仮面弁士さんありがとうございました!