Dim dv As DataView = ds.hoge_table.DefaultViewdv.RowFilter = "hoge_time >= #" & hogeTime.ToString & ".00000# Or hoge_time <= #" & hogeTime.ToString & ".99999#"dv.Sort = "key1, key2"For Each drv As DataRowView In dvDim dr As HogehogeDataSet.hoge_tableRow = CType(drv.Row, HogehogeDataSet.hoge_tableRow)dr.key1 をほげほげ〜Next
Dim filter As New Text.StringBuilderfilter.Append("hoge_time >= #" & hogeTime.ToString & ".00000# Or hoge_time <= #" & hogeTime.ToString & ".99999#")Dim drList() As DataRow = ds.hoge_table.Select(filter.ToString)For Each dr As HogehogeDataSet.hoge_tableRow In drListdr.key1 をほげほげ〜Next