タイトル : 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" > > このようなコードで実現出来ます。 |