検索 (ID:111323)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 説明足らずですみません。 表示はデータグリッドを使用して一覧表形式で表示させています。 VB.NETは2002を使用しています。 ADO.NETはオラクルを使用したコーディングになっているつもりです。 コードは、 検索フォーム Try strSql = "" 'ComboBoxの内容が不正でないかを判断する If CInt(kcode1.Text) > CInt(kcode2.Text) Then 'メッセージボックスを表示 MsgBox("指定した値は間違っています", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "注意") kcode1.Focus() Exit Sub End If 'ComboBoxの内容をtextで取得 If Trim(kcode1.Text) <> "" And Trim(kcode2.Text) <> "" Then 'SQL文をstrSqlに格納する strSql = "SELECT 顧客コード,顧客会社名,顧客郵便番号１,顧客住所１,顧客電話番号１" strSql &= " FROM 顧客管理マスタ WHERE" strSql &= " 顧客コード BETWEEN " & Trim(kcode1.Text) & " and " & Trim(kcode2.Text) & " and " '顧客会社名が空白でないかを判断する If kname.Text <> "" Then strSql &= " 顧客会社名 Like '%" & Trim(kname.Text) & "%' and" End If '得意先か一般かを判断する If tokuiRB.Checked = True Then strSql &= " 顧客状況コード = '1'" Else strSql &= " 顧客状況コード = '2'" End If End If fkmasu.Olekokyaku.SelectCommand.CommandText = strSql fkmasu.Olekokyaku.Fill(fkmasu.Ds21, "顧客管理マスタ") '次のフォームを表示 fkmasu.Show() Me.Hide() Catch err As Exception MsgBox("エラー", MsgBoxStyle.OKOnly, "注意") End Try 表示フォームから検索フォームに戻るコードは fmken.Show() Me.Hide() しか書いていません。