検索について (ID：110729)

名前

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

本文

とろさん、特攻隊長まるるうさん、madyさん、いなさん、質問に答えて頂きありがとうございました。
ComboBoxの内容をtext型で取得することで何とか検索ができるようになりました。
コードはこのようになりました。
Try
            '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.Show()
            Me.Hide()
        Catch err As Exception
            MsgBox("エラー", MsgBoxStyle.OKOnly, "注意")
        End Try

←解決時は質問者本人がここをチェックしてください。

戻る