GridViewの中にGridViewを作る

Protected Sub gvTest_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvTest.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
　　　　Dim gvSummary As New GridView
　　gvSummary.AutoGenerateColumns = False
　　　　gvSummary.ShowFooter = True

Dim bfChoice As BoundField = New BoundField
bfChoice.DataField = "Choice"
bfChoice.HeaderText = "選択肢"
gvSummary.Columns.Add(bfChoice)

Dim bfCnt As New BoundField
bfCnt.DataField = "Cnt"
bfCnt.HeaderText = "人数"
gvSummary.Columns.Add(bfCnt)

Dim bfRatio As New BoundField
bfRatio.DataField = "Ratio"
bfRatio.HeaderText = "比率"
gvSummary.Columns.Add(bfRatio)

' フッター生成とか
AddHandler gvSummary.RowDataBound, AddressOf gvSummary_RowDataBound

Dim dtSummary As DataTable = ' データセット作成
gvSummary.DataSource = dtSummary
gvSummary.DataBind()
e.Row.Cells(2).Controls.Add(gvSummary)
　　End If
End Sub