tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^2: dataTable 2 配列
投稿日： 2013/06/13(Thu) 15:14
投稿者： ルトケ
ありがとうございました。すみません。説明不足でした。

配列に変換した後、「各要素の平均」を
求めたいです。コードで書くと以下のようになると思います。

    Dim dt As New DataTable
    dt.Columns.Add()
    dt.Columns.Add()

    dt.Rows.Add(0, 2)
    dt.Rows.Add(1, 3)
    dt.Rows.Add(2, 6)

    Dim numbers As New List(Of Integer)

    For Each row As DataRow In dt.Rows
       numbers.Add(row(1))
    Next

    Dim arr As Integer()
    arr = numbers.ToArray()
    Dim result as Single
    For i = 0 as Integer to 2 step 1
     result += numbers(i)
    Next i

    MsgBox("average: " & CStr(result/3))

dataTableのRowとか列挙体だと　要素の足し算の仕方が
わかりません。馴染みのある配列に変換してから
足し算にもちこまねば・・と考え上のようなコードを
ものしました。よろしくお願いします。

> 文章で書いてあることと提示コードの
> 違いがあるためやりたいことがよくわかりませんが
>
> 提示コードの内容は
> ComboBox1.DataSource = new Integer() {2, 3, 6}
>
> だけで実現出来てしまうので
> もう少し意図することが分かるようお願いします。
>
>
> DataTableを使用した方法でも
>
>     Dim dt As New DataTable
>     dt.Columns.Add("col1", GetType(Integer))
>     dt.Columns.Add("col2", GetType(Integer))
>
>     dt.Rows.Add(0, 2)
>     dt.Rows.Add(1, 3)
>     dt.Rows.Add(2, 6)
>
>     ComboBox1.DataSource = dt
>     ComboBox1.DisplayMember = "col2"
>
> このようなコードで実現出来ます。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。