タイトル : Re^4: DataGridViewにカーソルを位置づけたい 投稿日 : 2008/08/22(Fri) 12:35 投稿者 : 不二子
すみません。もう少し教えて下さい。 後、行番号さえ取得できればできそうなんですが、魔界の仮面弁士さんに教えてもらったようにしようとしたのですが、 Dim findRow As DataRow = table1.Rows.Find(TextBox1.Text) のtable1のところをどのように置き換えればよいかわかりません。 よろしくお願いします。 尚、私のコーディングは下記の通りです。 <DataGridViewにまず、データをセット> Try '---抽出クエリ作成 strsql = "SELECT" strsql = strsql & " 社員コード," strsql = strsql & " 社員氏名," strsql = strsql & " 社員カナ" strsql = strsql & " FROM T社員テーブル '---SQL文を作成して実行する Dim comm As SqlCommand = New SqlCommand(strsql, Con) '---SQL文を引数にしてデータアダプタを生成 Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(comm) '---DataAdapter で取得するデータの受け皿を準備 Dim ds As DataSet = New DataSet() '---SQL 文を発行し、取得したデータを DataSet に格納 dataadapter.Fill(ds, "社員テーブル") '---DataSet を DataGridView control と連結 dgrSyain.DataSource = ds '---データソースの名前を設定 dgrSyain.DataMember = "社員テーブル" Catch oExcept As Exception '例外が発生した時の処理 MessageBox.Show(oExcept.ToString, "例外発生") Exit Sub End Try <テキストボックスに検索時のイベント> 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 dim rowIndex as integer 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() '---行番号取得 rowIndex=??? '---カーソルの位置付け dgrSyain.CurrentCell = dgrSyain.Rows(rowIndex).Cells(0) Finally MessageBox.Show("例外発生") End Try End If End Sub |