単票形式に

VBLL 2004-01-08 19:33:32 No: 111142

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で宣言しています。
もし解る方がいたら教えて頂けないでしょうか？

岡田之仁 2004-01-08 21:17:29 No: 111143

こちらをご参照下さい。

http://dobon.net/vb/dotnet/datagrid/currentrow.html

以上。