投稿者 シャチョさん  (社会人) 投稿日時 2008/11/19 20:44:19
すみません、こんな感じです。
適当にフォームにDataGridView1とButtonを貼り付けてください。
    Private Sub test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ''データテーブル
        Dim dt As New DataTable
        ''フィールド(列)を追加
        dt.Columns.Add("No1", Type.GetType("System.Int16"))
        dt.Columns.Add("No2", Type.GetType("System.Int16"))
        dt.Columns.Add("No3", Type.GetType("System.Int16"))
        dt.Columns.Add("No4", Type.GetType("System.Int16"))
        dt.Columns.Add("No5", Type.GetType("System.Int16"))
        ''適当にデータを代入
        Dim Data(4, 4) As Integer
        Dim ANS As Integer = 0
        For i = 0 To 4
            dt.Rows.Add(i)
            For j = 0 To 4
                dt.Rows(i)(j) = ANS
                ANS += 1
            Next
        Next
        ''データグリッドビューにセット
        DataGridView1.DataSource = dt
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'ボタンにて一番目のデータを表示
        Dim Table As DataTable = CType(DataGridView1.DataSource, DataTable)
        MsgBox(Table(0)(0)) '表の左上のデータ
    End Sub

ボタンを押して表の左上のデータを表示させると ’0’です
DataGridViewの一番上をクリックしてデータを並べ替え
ボタンを押して表の左上のデータを表示させると ’0’です
DataGridViewは並べ替えられたのですから変わった数字がほしいのですが
どうすればよいでしょうか?