tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル DataGridViewにカーソルを位置づけたい
投稿日: 2008/08/21(Thu) 15:10
投稿者不二子
DataGridViewについてご教授お願いします。
現在フォーム1に検索用のTEXTBOXとDataGridViewがあり、
DataGridViewにはAテーブルのデータを表示しています。
表示している内容は、社員コード、社員名、社員名カナです。
やりたいことは、検索用のTEXTBOXに”社員カナ”を入力した時に、そのレコードに
カーソルを位置づけたいのですが、どうすればよいかわかりません。

現在記述しているコードは下記の通りです。よろしくお願いいたします。

    Private Sub TXT_検索_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TXT_検索.KeyDown

        Dim strsql As String
        Dim strCode As String

        If e.KeyCode = Keys.Enter Then

            Try
                Dim command As New SqlClient.SqlCommand

                '---コネクションの指定
                command.Connection = Con

                '---コマンドの種類をテキストにする
                command.CommandType = CommandType.Text

                '---実行するSQLを指定
                strsql = "SELECT"
                strsql = strsql & " 社員コード"
                strsql = strsql & " FROM T社員テーブル"
                strsql = strsql & " WHERE 社員カナ Like '" & TXT_検索.Text & "%" & "'"

                command.CommandText = strsql

                '---SQLの結果を取得する
                Dim sr As SqlClient.SqlDataReader
                sr = command.ExecuteReader()
                command.Dispose()

                '---取得データ0件の場合は
                If Not sr.HasRows Then
                    MessageBox.Show("該当データがありません")
                    Exit Try
                Else
                    While sr.Read
                        strCode = sr("社員コード").ToString()
                    End While
                End If
                sr.Close()

                '---行番号取得
        ???

                '---カーソルの位置付け
                ???

            Finally
                MessageBox.Show("例外発生")
            End Try

        End If

    End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。