プルダウンメニューをGridViewに反映させるには？

VB初心者 2007-07-07 05:33:02 No: 136924

初めまして。
今現在、VBのヴィジュアルスタジオでSQLSeverのDBを読み込み、GridViewに表示しています。
表示のみ成功しておりまして、プルダウンメニューにWHERE区を適用させたいのですが、上手くいきません；
現在のソースは、

Protected Sub dList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dList.SelectedIndexChanged

Dim dt As DataTable
Dim instance2 As String = 0
dt = SQL_getTable("SELECT [WD],[KBN],[Ad] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo")

If instance2 = "一覧" Then
flag = 0
ElseIf instance2 = "一覧2" Then
flag = 1
ElseIf instance2 = "一覧3" Then
flag = 2
End If

GridView.DataSource = dt

End Sub

'検索実行＆表示は、検索ボタンがクリックされてから。

Protected Sub sList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles syutokuList.SelectedIndexChanged

Dim dt As DataTable
Dim instance3 As String = 0
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo")

If instance3 = "一覧" Then
flag2 = 0
ElseIf instance3 = "一覧2" Then
flag2 = 1
ElseIf instance3 = "一覧3" Then
flag2 = 2
End If

GridView.DataSource = dt

End Sub

VB初心者 2007-07-07 05:43:35 No: 136925

(続きです：flg3が1の時=テキストボックス入力済)

Protected Sub kensaku_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kensaku.Click

Dim dt As DataTable

If flag3 = 0 And syainBox.Text <> "" Then
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo WHERE [ME].[ENO] =" & sBox.Text & "")

kk = syainBox.Text
GridView.DataSource = dt

flag3 = 1

ElseIf flag3 = 1 And flag = 0 Then
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo")
GridView.DataSource = dt
Return

ElseIf flag3 = 1 And flag = 1 Then
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo WHERE [KBN] = 1")
GridView.DataSource = dt
Return

ElseIf flag3 = 1 And flag = 2 Then
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo WHERE [KBN] = 2")
GridView.DataSource = dt
Return

ElseIf flag3 = 1 And flag2 = 0 Then
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo")
GridView.DataSource = dt
Return

ElseIf flag3 = 1 And flag2 = 1 Then
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo WHERE [Ac] = 1")
GridView.DataSource = dt
Return

ElseIf flag3 = 1 And flag2 = 2 Then
dt = SQL_getTable("SELECT [WD],[KBN],[Ac] FROM [DCH] LEFT OUTER JOIN [ME] ON [DCH].ENO = [ME].ENo WHERE [Ac] = 2")
GridView.DataSource = dt
Return

End If
End Sub

といった感じです。
長くなってしまってすみません；
説明(というよりプログラミング自体)が苦手なので、ソースを見ていただいた方が良いかなと思ったのですが・・・。
不明な点などございましたら、お答えしますので、ご協力よろしくお願い致します。