DataGridViewの表示と他のコントロールとの連帯

質問

こんにちわ（＾＾）
いつもお世話になっております。

現在、DataGridViewを用いてMDBファイル内のテーブルを表示しています。
下記にその部分のソースを抜粋します。
※dgvDataList=DataGridView

'--- Source ここから
Dim objConnection As _
New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\test.mdb")
Dim strSQL As OleDbCommand = Cn.CreateCommand
Dim objAdapter As New OleDbDataAdapter(strSQL)
Dim dtbTable As New DataTable

strSQL.CommandText = "SELECT * FROM tblWorkTable"
Adapter.Fill(Table)

dgvDataList.DataSource = Table

dtbTable.Dispose()
objAdapter.Dispose()
strSQL.Dispose()
objConnection.Dispose()
'--- ここまで

表示対象となるテーブル仕様は下記の通りです。

Name : tblWorkTable

Column Type
--------------------
colID Integer
colDate Date
colStartTime VarChar
colEndTime VarChar

さて本題ですが、

フォームには各フィールド入力用にTextBoxを配置しております。
DataGridViewのCellClickイベントで、CurrentRowの各フィールドを取得しています。
例えば、
(a) DataGridViewの一つのレコードを選択(CellClickイベント発生)
(b) 選択したレコードの各列の値をTextBox.Textに設定。
といった感じです。

そこで、TextBoxの値を変更した際に、DataGridViewにも反映させるといった処理をしたいのですが、どうすればよいかわかりません。
具体的には、DataGridViewの選択レコードを変更した際に、もしTextBoxの値が変更されていればその値を反映させ、次にそのレコードが選択された時に、ちゃんと変更した値になっていればよいのです。

非常にわかりずらい日本語で恐縮です…。
どうかご教授願います m(_ _)m

回答No.1

redfox63 · ベストアンサー

テキストボックスはいくつあるのでしょう？
カラム数分の4つなのでしょうか、それともフォーカスのあるセル1つなのでしょうか

4つあるのでしたら DataTableをフォームクラスの変数などにしておいて Textプロパティに対してバインディングするようにしてみてはいかがでしょう

お示しのコードなら dtbTableがこれに該当します
dtbTable.Dispose() を実行しないようにコメントアウトしておいて

' テーブルのカラム名などは修正してください
TextBox1.DataBindings.Add("Text", dtbTable,"ID")
TextBox2.DataBindings.Add("Text", dtbTable,"Date")
TextBox3.DataBindings.Add("Text", dtbTable,"StartTime")
TextBox4.DataBindings.Add("Text", dtbTable,"EndTime")
といった具合で連結します

各テキストのEnterイベントでグリッドのカレントセルの更新を行います

Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter
　　Dim arTx() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4}
　　Dim n As Integer = Array.IndexOf(arTx, ActiveControl)
　　If dtbTable.Rows.Count > 0 AndAlso n > -1 Then
　　　　　DataGridView1.CurrentCell = DataGridView1.CurrentRow.Cells(n)
　　End If
End Sub
といった具合です
既存の行であればこれで対処可能です

お礼

ご返答遅くなってしまい申し訳ありませんでした（汗；
Bindingは聞いた事はあったのですが…便利ですね！
問題なく各列の取得が行えました！

余談ですが、
---引用------------------------------------------
Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter
　　Dim arTx() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4}
　　Dim n As Integer = Array.IndexOf(arTx, ActiveControl)
　　If dtbTable.Rows.Count > 0 AndAlso n > -1 Then
　　　　　DataGridView1.CurrentCell = DataGridView1.CurrentRow.Cells(n)
　　End If
End Sub
------------------------------------------ここまで
このようにしてVB6以前のコントロール配列のように使えてしまうのですね！
また一つ勉強になりました（＾＾）

redfox63様、ありがとうございました（＾３＾９！