|
ｿｽ@ｿｽｿｽｿｽﾂ変抵ｿｽｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽｿｽzｿｽｿｽｿｽRedimｿｽﾈゑｿｽｿｽﾅ使ｿｽｿｽｿｽﾉゑｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽｿｽ 2008/08/06(ｿｽｿｽ) 22:39:07
ｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽVisualStudio2005 WindowsXPｿｽﾅゑｿｽｿｽB
Excelｿｽﾉ値ｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
dim Str(,) as String ｿｽﾌ２ｿｽｿｽｿｽｿｽｿｽzｿｽｿｽﾉ格ｿｽ[ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽoｿｽﾍゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌとゑｿｽｿｽﾉ、ｿｽzｿｽｿｽﾌ抵ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽ轤ｩｿｽｿｽｿｽﾟわかｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
Redim Preserveｿｽﾅ会ｿｽｿｽxｿｽｿｽTｿｽCｿｽYｿｽｿｽﾏ更ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ArrayListｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽﾌ配ｿｽｿｽﾉ出ｿｽﾍゑｿｽｿｽｿｽ@ｿｽ¥ｿｽﾍつゑｿｽｿｽﾄゑｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾍ２ｿｽｿｽｿｽｿｽｿｽﾌ配ｿｽｿｽﾈのでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
.NETｿｽﾅゑｿｽQｿｽｿｽｿｽｿｽｿｽzｿｽｿｽ操作すｿｽｿｽﾆゑｿｽｿｽｿｽRedimｿｽﾅ繰ｿｽｿｽﾔゑｿｽｿｽTｿｽCｿｽYｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾊなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽqｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/08/07(ｿｽｿｽ) 09:36:02
> dim Str(,) as String ｿｽﾌ２ｿｽｿｽｿｽｿｽｿｽzｿｽｿｽﾉ格ｿｽ[ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽuStr ｿｽﾖ撰ｿｽｿｽvｿｽﾆ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ厄ｿｽｿｽOｿｽﾍ、ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽかｿｽﾆ。
# Str ｿｽﾍ予ｿｽｿｽｿｽﾅは厄ｿｽｿｽｿｽｿｽﾌで鯉ｿｽｿｽｿｽIｿｽﾉは厄ｿｽ阮ｳｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで。
> Redim Preserveｿｽﾅ会ｿｽｿｽxｿｽｿｽTｿｽCｿｽYｿｽｿｽﾏ更ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾚ擾ｿｽﾍ、Preserve ｿｽﾍサｿｽCｿｽYｿｽﾌ拡ｿｽｿｽ/ｿｽkｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾛには新ｿｽｿｽｿｽﾈ配ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾉデｿｽ[ｿｽ^ｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽ髢ｽｿｽﾟでゑｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽｿｽﾟ頻ｿｽﾉなサｿｽCｿｽYｿｽﾏ更ｿｽﾍ、ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉつゑｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽVB ｿｽﾉゑｿｽｿｽﾄゑｿｽ VB.NET ｿｽﾉゑｿｽｿｽﾄゑｿｽB
> ArrayListｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽﾌ配ｿｽｿｽﾉ出ｿｽﾍゑｿｽｿｽｿｽ@ｿｽ¥ｿｽﾍつゑｿｽｿｽﾄゑｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾆは関係ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、VB2005 ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾈゑｿｽﾎ、
System.Collections.ArrayList ｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽA
System.Collections.Generic.List(Of T) ｿｽNｿｽｿｽｿｽXｿｽﾌ包ｿｽｿｽｿｽｿｽﾖ暦ｿｽｿｽﾅゑｿｽｿｽｿｽB
> .NETｿｽﾅゑｿｽQｿｽｿｽｿｽｿｽｿｽzｿｽｿｽ操作すｿｽｿｽﾆゑｿｽｿｽｿｽRedimｿｽﾅ繰ｿｽｿｽﾔゑｿｽｿｽTｿｽCｿｽYｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽ
> ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾊなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽzｿｽｿｽﾌ再撰ｿｽｿｽｿｽｿｽ数ゑｿｽｿｽｿｽ轤ｷｿｽｿｽｿｽﾟに、
ｿｽﾅ擾ｿｽｿｽﾍ、ｿｽ蛯ｫｿｽﾟの配ｿｽｿｽｿｽﾊのコｿｽｿｽｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽﾈどに難ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽAｿｽﾅ鯉ｿｽｿｽ
ｿｽ次鯉ｿｽｿｽzｿｽｿｽﾖと会ｿｽｿｽHｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽfｿｽ[ｿｽ^ｿｽｿｽ System.Data.DataTable ｿｽﾌ形ｿｽﾅ保趣ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾎ、
ｿｽsｿｽｿｽｿｽｿｽ .Rows.CountｿｽAｿｽ数ゑｿｽ .Columns.Count ｿｽﾅ取得ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾌで、
ｿｽ繧ｩｿｽ辜具ｿｽ[ｿｽvｿｽﾅ、ｿｽ次鯉ｿｽｿｽzｿｽｿｽﾖと変奇ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。
(ｿｽｿｽｿｽｿｽｿｽｿｽADataTable ｿｽﾈ外ｿｽﾌ包ｿｽｿｽﾅ管暦ｿｽｿｽｿｽｿｽﾄゑｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､)
ｿｽｿｽｿｽｿｽ 2008/08/07(ｿｽｿｽ) 23:31:09
># Str ｿｽﾍ予ｿｽｿｽｿｽﾅは厄ｿｽｿｽｿｽｿｽﾌで鯉ｿｽｿｽｿｽIｿｽﾉは厄ｿｽ阮ｳｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで。
ｿｽmｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾍ托ｿｽｿｽﾌ変撰ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
>System.Collections.Generic.List(Of T) ｿｽNｿｽｿｽｿｽXｿｽﾌ包ｿｽｿｽｿｽｿｽﾖ暦ｿｽｿｽﾅゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽAList(Of T)ｿｽｿｽgｿｽせｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝの状況の記ｿｽqｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝ、System.Data.DataTableｿｽｿｽｿｽｿｽｿｽｿｽﾍ配ｿｽｿｽﾉ値ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
DataTableｿｽﾌ包ｿｽｿｽｿｽ
ｿｽPｿｽｿｽﾚでソｿｽ[ｿｽgｿｽｿｽｿｽｿｽDataTableｿｽｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌままでゑｿｽｿｽB
DataTableｿｽｿｽ1ｿｽｿｽﾚの値ｿｽｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽVｿｽ[ｿｽgｿｽｿｽﾖゑｿｽｿｽｿｽExcelｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽ謔､
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽlｿｽｿｽｿｽﾏゑｿｽｿｽﾌは会ｿｽｿｽsｿｽﾚゑｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌで可変抵ｿｽｿｽﾉなりそｿｽｿｽｿｽﾅゑｿｽｿｽB
DataTableｿｽｿｽｿｽｿｽﾌまま出ｿｽﾍゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
.Rows.CountｿｽｿｽgｿｽせｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/08/08(ｿｽｿｽ) 11:00:05
> ｿｽlｿｽｿｽｿｽﾏゑｿｽｿｽﾌは会ｿｽｿｽsｿｽﾚゑｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌで可変抵ｿｽｿｽﾉなりそｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ「ｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ」ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾈゑｿｽzｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾌでは厄ｿｽｿｽｿｽｿｽA
DataView ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ驍｢ｿｽﾍ一時ｿｽIｿｽﾉ「ｿｽﾊゑｿｽ DataTable ｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾆで、
ｿｽ次鯉ｿｽｿｽzｿｽ化ゑｿｽｿｽ竄ｷｿｽｿｽｿｽﾈるかｿｽﾆ。
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽﾈデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
'-------------
Private Function CreateSampleData() As DataSet
ｿｽ@Dim ds As New DataSet()
ｿｽ@Dim t As DataTable = ds.Tables.Add("Table1")
ｿｽ@t.Columns.Add("ｿｽｿｽｿｽt", GetType(Date))
ｿｽ@t.Columns.Add("ｿｽnｿｽｿｽ")
ｿｽ@With t.Rows
ｿｽ@ｿｽ@.Add(#8/1/2008#, "ｿｽﾂ森")
ｿｽ@ｿｽ@.Add(#8/1/2008#, "ｿｽｿｽｿｽ")
ｿｽ@ｿｽ@.Add(#8/1/2008#, "ｿｽｿｽｿｽｿｽ")
ｿｽ@ｿｽ@.Add(#8/1/2008#, "ｿｽｿｽｿｽs")
ｿｽ@ｿｽ@.Add(#8/1/2008#, "ｿｽｿｽｿｽ")
ｿｽ@ｿｽ@.Add(#8/2/2008#, "ｿｽHｿｽc")
ｿｽ@ｿｽ@.Add(#8/2/2008#, "ｿｽﾎ撰ｿｽ")
ｿｽ@ｿｽ@.Add(#8/2/2008#, "ｿｽｿｽｿｽｿｽ")
ｿｽ@ｿｽ@.Add(#8/3/2008#, "ｿｽ{ｿｽｿｽ")
ｿｽ@ｿｽ@.Add(#8/3/2008#, "ｿｽﾟ覇")
ｿｽ@End With
ｿｽ@ds.AcceptChanges()
ｿｽ@Return ds
End Function
'-------------
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽA1ｿｽｿｽﾚの難ｿｽｿｽtｿｽﾅグｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ:3
ｿｽ@ｿｽ@2008/08/01=5ｿｽｿｽ
ｿｽ@ｿｽ@2008/08/02=3ｿｽｿｽ
ｿｽ@ｿｽ@2008/08/03=2ｿｽｿｽ
ｿｽﾌ鯉ｿｽｿｽﾊを得ゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ黷ｪ VB2008 ｿｽﾅゑｿｽｿｽｿｽﾎ、LINQ ｿｽ齡ｭｿｽﾈのでゑｿｽｿｽｿｽｿｽcｿｽB
'-------------
Dim query = _
ｿｽ@From row In table.AsEnumerable() _
ｿｽ@Group By dt = row.Field(Of Date)("ｿｽｿｽｿｽt") Into Group, cnt = Count() _
ｿｽ@Order By dt Ascending
Console.WriteLine("ｿｽｿｽｿｽｿｽｿｽｿｽ:{0}ｿｽｿｽ", query.Count)
For Each q In query
Console.WriteLine("{0:yyyy/MM/dd}={1,-5:#,0}", q.dt, q.cnt)
Next
'-------------
ｿｽcｿｽOｿｽﾈゑｿｽｿｽ迯｡ｿｽｿｽｿｽ 2005 ｿｽﾈので、ｿｽｿｽLｿｽﾌようｿｽﾉ簡単ｿｽﾉは擾ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅ集ｿｽvｿｽｿｽｿｽﾋゑｿｽ
ｿｽﾈゑｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽOｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽ驍ｽｿｽﾟに、DataSet ｿｽﾌ「ｿｽｿｽｿｽｿｽvｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽ@ｿｽ¥(DataRow.GetChildRows ｿｽﾈゑｿｽ)ｿｽｿｽgｿｽｿｽｿｽﾄみては如ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
'-------------
Private Shared Function CreateSampleData() As DataSet
ｿｽ@'(ｿｽﾈ暦ｿｽ:ｿｽｿｽﾌ難ｿｽeｿｽﾆ難ｿｽｿｽｿｽ)
End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ｿｽ@Dim ds As DataSet = CreateSampleData()
ｿｽ@'ｿｽｿｽｿｽtｿｽﾅグｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ成
ｿｽ@Dim dsGroup As DataSet = CreateGroupingDataSet(ds)
ｿｽ@'ｿｽｿｽｿｽgｿｽmｿｽF
ｿｽ@Dim grid As New DataGrid()
ｿｽ@grid.Dock = DockStyle.Fill
ｿｽ@Controls.Add(grid)
ｿｽ@grid.DataSource = dsGroup.Tables("Group1")
ｿｽ@'ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽ
ｿｽ@Dim fmtGroup As String = "{0:yyyy/MM/dd} = {1:#,0}ｿｽｿｽ"
ｿｽ@Dim fmt As String = " {0:yyyy/MM/dd}, {1}"
ｿｽ@Dim msg As New System.Text.StringBuilder()
ｿｽ@For Each rowGroup As DataRow In dsGroup.Tables("Group1").Rows
ｿｽ@ｿｽ@Dim rows() As DataRow = rowGroup.GetChildRows("GroupByｿｽｿｽｿｽt")
ｿｽ@ｿｽ@'msg.AppendLine(String.Format(fmtGroup, rowGroup("ｿｽｿｽｿｽt"), rows.Length))
ｿｽ@ｿｽ@msg.AppendLine(String.Format(fmtGroup, rowGroup("ｿｽｿｽｿｽt"), rowGroup("ｿｽｿｽｿｽｿｽ")))
ｿｽ@ｿｽ@For Each row As DataRow In rows
ｿｽ@ｿｽ@ｿｽ@msg.AppendLine(String.Format(fmt, row("ｿｽｿｽｿｽt"), row("ｿｽnｿｽｿｽ")))
ｿｽ@ｿｽ@Next
ｿｽ@Next
ｿｽ@MessageBox.Show(msg.ToString())
End Sub
Private Function CreateGroupingDataSet(ByVal dsSource As DataSet) As DataSet
ｿｽ@Dim ds As DataSet = dsSource.Copy()
ｿｽ@ds.EnforceConstraints = False
ｿｽ@'ｿｽｿｽｿｽtｿｽｿｽﾅグｿｽｿｽｿｽ[ｿｽvｿｽｿｽ
ｿｽ@Dim tblSrc As DataTable = ds.Tables("Table1")
ｿｽ@Dim tblGrp As DataTable = ds.Tables.Add("Group1")
ｿｽ@tblGrp.Columns.Add("ｿｽｿｽｿｽt", GetType(Date))
ｿｽ@ds.Relations.Add("GroupByｿｽｿｽｿｽt", tblGrp.Columns("ｿｽｿｽｿｽt"), tblSrc.Columns("ｿｽｿｽｿｽt"))
ｿｽ@tblGrp.Columns.Add("ｿｽｿｽｿｽｿｽ", GetType(Decimal), "COUNT(Child.ｿｽｿｽｿｽt)")
ｿｽ@'ｿｽWｿｽvｿｽｿｽﾆは趣ｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽc
ｿｽ@Dim view As New DataView(ds.Tables("Table1"))
ｿｽ@view.Sort = "ｿｽｿｽｿｽt ASC"
ｿｽ@Dim preDate As Date = Date.MaxValue
ｿｽ@For Each row As DataRowView In view
ｿｽ@ｿｽ@Dim curDate As Date = CDate(row.Row("ｿｽｿｽｿｽt"))
ｿｽ@ｿｽ@If preDate <> curDate Then
ｿｽ@ｿｽ@ｿｽ@preDate = curDate
ｿｽ@ｿｽ@ｿｽ@tblGrp.Rows.Add(curDate)
ｿｽ@ｿｽ@End If
ｿｽ@Next
ｿｽ@ds.EnforceConstraints = True
ｿｽ@tblGrp.AcceptChanges()
ｿｽ@Return ds
End Function
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/08/08(ｿｽｿｽ) 11:18:37
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ DataView ｿｽﾅ。ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ骼厄ｿｽﾍ難ｿｽｿｽｿｽｿｽcｿｽB
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ｿｽ@Dim ds As DataSet = CreateSampleData()
ｿｽ@Dim table1 As DataTable = ds.Tables("Table1")
ｿｽ@Dim view1 As New DataView(table1)
ｿｽ@view1.Sort = "ｿｽｿｽｿｽt ASC"
ｿｽ@Dim preDate As Date = Date.MaxValue
ｿｽ@Dim msg As New System.Text.StringBuilder()
ｿｽ@Dim count As Integer = 0
ｿｽ@For Each row As DataRowView In view1
ｿｽ@ｿｽ@Dim curDate As Date = CDate(row.Row("ｿｽｿｽｿｽt"))
ｿｽ@ｿｽ@If preDate <> curDate Then
ｿｽ@ｿｽ@ｿｽ@preDate = curDate
ｿｽ@ｿｽ@ｿｽ@Dim view2 As New DataView(table1)
ｿｽ@ｿｽ@ｿｽ@view2.RowFilter = String.Format("ｿｽｿｽｿｽt=#{0:MM/dd/yyyy}#", curDate)
ｿｽ@ｿｽ@ｿｽ@msg.AppendLine(String.Format(" {0:yyyy/MM/dd}={1:#,0}ｿｽｿｽ", curDate, view2.Count))
ｿｽ@ｿｽ@ｿｽ@count += 1
ｿｽ@ｿｽ@End If
ｿｽ@Next
ｿｽ@msg.Insert(0, String.Format("ｿｽOｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ:{0}ｿｽｿｽ", count) & vbNewLine, 1)
ｿｽ@MessageBox.Show(msg.ToString())
End Sub
ｿｽｿｽｿｽｿｽ 2008/08/13(ｿｽｿｽ) 22:39:21
>ｿｽｿｽｿｽﾌ「ｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ」ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾈゑｿｽzｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾌでは厄ｿｽｿｽｿｽｿｽA
>DataView ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ驍｢ｿｽﾍ一時ｿｽIｿｽﾉ「ｿｽﾊゑｿｽ DataTable ｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽﾈゑｿｽ>ｿｽｿｽｿｽvｿｽｿｽｿｽﾆで、
>ｿｽ次鯉ｿｽｿｽzｿｽ化ゑｿｽｿｽ竄ｷｿｽｿｽｿｽﾈるかｿｽﾆ。
ｿｽﾔ信ｿｽｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽﾌゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ¥ｿｽ[ｿｽXｿｽﾜで載ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽxDataTableｿｽﾉ難ｿｽｿｽｿｽ驍ｱｿｽﾆで可変抵ｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽ
ｿｽｿｽｿｽﾊなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾜで「2ｿｽｿｽｿｽｿｽｿｽzｿｽｿｽｿｽExcelｿｽoｿｽﾍゑｿｽｿｽｿｽﾖ撰ｿｽｿｽvｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽB
DataTableｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽzｿｽｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽu2ｿｽｿｽｿｽｿｽｿｽzｿｽｿｽｿｽExcelｿｽoｿｽﾍゑｿｽｿｽｿｽﾖ撰ｿｽｿｽvｿｽﾉ渡ｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ関撰ｿｽｿｽﾉ渡ｿｽｿｽｿｽｿｽｿｽﾟゑｿｽDataTableｿｽｿｽeｿｽｿｽﾊで搾ｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽ黷ｪ VB2008 ｿｽﾅゑｿｽｿｽｿｽﾎ、LINQ ｿｽ齡ｭｿｽﾈのでゑｿｽｿｽｿｽｿｽcｿｽB
ｿｽｿｽｿｽｿｽﾍ知ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで目ゑｿｽｿｽ轤､ｿｽこｿｽﾅゑｿｽｿｽB
VB2008ｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽyｿｽｿｽｿｽﾝになゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽbｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽLｿｽﾌソｿｽ[ｿｽXｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽFor Eachｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽhｿｽｿｽｿｽhｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽForｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄ、
ｿｽｿｽｿｽ[ｿｽvｿｽﾉ使ｿｽｿｽｿｽﾏ撰ｿｽｿｽｿｽDataTableｿｽﾌ行ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾌに使ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ 2008/08/13(ｿｽｿｽ) 22:41:29
For Eachｿｽﾉ関ゑｿｽｿｽﾄ托ｿｽｿｽﾉ趣ｿｽｿｽｿｽXｿｽｿｽｿｽbｿｽhｿｽ立てゑｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾄまゑｿｽｿｽﾌで、ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/08/13(ｿｽｿｽ) 23:33:24
> VB2008ｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽyｿｽｿｽｿｽﾝになゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈみに。
ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾍ、Visual Studio ｿｽｿｽgｿｽｿｽｿｽﾄはゑｿｽｿｽ轤ｸｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ抵ｿｽｿｽﾚ記ｿｽqｿｽｿｽｿｽﾄ、
ｿｽ@C:¥WINDOWS¥Microsoft.NET¥Framework¥v3.5¥VBC.EXE
ｿｽｿｽgｿｽｿｽｿｽﾄ、ｿｽ闢ｮｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾄ確ｿｽFｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽB(^^;
(ｿｽｿｽｿｽﾂゑｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ PC ｿｽﾉは、VS2008 ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで…)
> ｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽFor Eachｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
> ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽhｿｽｿｽｿｽhｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
For Each ｿｽｿｽ For ｿｽﾅは、ｿｽｿｽｿｽﾌ暦ｿｽｿｽpｿｽﾚ的ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ異なゑｿｽﾜゑｿｽｿｽﾌで、
ｿｽｿｽｿｽﾌ趣ｿｽｿｽXｿｽﾅ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽﾉなゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽﾈ場合ｿｽﾍ、ｿｽｿｽｿｽDｿｽｿｽｿｽﾈ包ｿｽｿｽｿｽIｿｽﾗば良ゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
For Each ｿｽｿｽｿｽKｿｽ{ｿｽﾆなゑｿｽﾌは、ｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ齬暦ｿｽｿｽ挙ゑｿｽｿｽｿｽ鼾ｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽﾈ会ｿｽｿｽﾌようｿｽﾈコｿｽ[ｿｽhｿｽﾌ場合ｿｽﾈどでゑｿｽｿｽB
ｿｽ@Dim hash As New Hashtable()
ｿｽ@hash.Add("Key1", "Value1")
ｿｽ@hash.Add("Key2", "Value2")
ｿｽ@Dim dict As New Dictionary(Of String, String)
ｿｽ@dict.Add("Key3", "Value3")
ｿｽ@dict.Add("Key4", "Value4")
ｿｽ@'ｿｽｿｽeｿｽｿｽｿｽ
ｿｽ@For Each item As DictionaryEntry In hash
ｿｽ@ｿｽ@Console.WriteLine("{0}='{1}'", item.Key, item.Value)
ｿｽ@Next
ｿｽ@For Each item As KeyValuePair(Of String, String) In dict
ｿｽ@ｿｽ@Console.WriteLine("{0}='{1}'", item.Key, item.Value)
ｿｽ@Next
ｿｽｿｽｿｽﾌようｿｽﾈ場合ｿｽﾍ、For ｿｽﾅは列挙でゑｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。(GetEnumerator ｿｽｿｽｿｽｿｽﾎ別でゑｿｽｿｽｿｽ)
ｿｽｿｽｿｽｿｽ 2008/08/14(ｿｽｿｽ) 22:42:49
>C:¥WINDOWS¥Microsoft.NET¥Framework¥v3.5¥VBC.EXE
>ｿｽｿｽgｿｽｿｽｿｽﾄ、ｿｽ闢ｮｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾄ確ｿｽFｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽB(^^;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ抵ｿｽｿｽﾚ記ｿｽqｿｽｿｽｿｽﾄのゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔ｷｿｽｿｽｿｽﾅゑｿｽｿｽB
Visual Studioｿｽﾉ暦ｿｽｿｽｿｽｿｽｿｽﾏなゑｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾌ鯉ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾄは奇ｿｽｿｽｿｽｿｽﾘゑｿｽﾉなるたｿｽﾑ、ｿｽﾆにゑｿｽｿｽ髑ｼｿｽﾌ端ｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽﾆ托ｿｽｿｽｿｽPCｿｽｿｽｿｽﾗてゑｿｽVisualStudioｿｽｿｽ(ｿｽｿｽ
>For Each ｿｽｿｽｿｽKｿｽ{ｿｽﾆなゑｿｽﾌは、ｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ齬暦ｿｽｿｽ挙ゑｿｽｿｽｿｽ鼾ｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Hashtableｿｽﾈど包ｿｽｿｽｿｽｿｽｿｽﾅ値ｿｽｿｽｿｽｿｽﾟゑｿｽ^ｿｽCｿｽvｿｽﾌゑｿｽﾌゑｿｽzｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/08/15(ｿｽｿｽ) 09:33:37
> ｿｽﾌ鯉ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾄは奇ｿｽｿｽｿｽｿｽﾘゑｿｽﾉなるたｿｽﾑ、
2008 ｿｽﾅは厄ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾋ。ｿｽｿｽｿｽﾝゑｿｽｿｽgｿｽｿｽｿｽﾌ撰ｿｽｿｽiｿｽﾍ、
Visual Studio .NET 2003 Professional 60ｿｽｿｽｿｽ]ｿｽｿｽｿｽｿｽ ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
Visual Studio 2005 Professional Edition 90 ｿｽｿｽｿｽﾔ評ｿｽｿｽｿｽｿｽ ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
Visual Studio 2005 Team Suite 180 ｿｽｿｽｿｽﾔ評ｿｽｿｽｿｽｿｽ ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽﾉ、2005/2008 ｿｽｿｽ Express Edition ｿｽｿｽgｿｽｿｽｿｽﾄみてゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで。
http://www.microsoft.com/japan/msdn/vstudio/Express/
http://www.microsoft.com/japan/msdn/vstudio/express/past/2005/
ｿｽｿｽｿｽｿｽ 2008/08/19(ｿｽｿｽ) 23:05:36
Visual Studio 2005 Professional Edition 90 ｿｽｿｽｿｽﾔ評ｿｽｿｽｿｽｿｽ ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽExpress EditionｿｽgｿｽせｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
