単票形式に (ID:111142)

名前

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

本文 DataGridで取得し表示された一覧形式のデータの中から一つのデータ行を選択して選択された行のデータを単票形式で別のフォームに表示させたいのですが なかなかうまくできません。 どの行を選んでも一番上の行のデータしか表示されません。 コードは Dim iPos As Integer 'レコード番号 r = 0 iPos = Me.BindingContext(Ds21, "顧客管理マスタ").Position If iPos = 0 Then MsgBox("レコードを選択して下さい", MsgBoxStyle.OKOnly, "注意") End If 'Me.BindingContext(OleDbConnection1, "顧客コード").Position = r 'kcode.Text = Me.BindingContext(OleDbConnection1, "顧客コード").Position r = iPos With Me.DG Debug.WriteLine(.Item(.CurrentCell.RowNumber, .CurrentCell.ColumnNumber)) End With fktanpyou.Show() Me.Hide() としています。 ｒはモジュールでpublicで宣言しています。 もし解る方がいたら教えて頂けないでしょうか？