Private Sub FillBlankRow()
Dim gridDataRow As DataRow
Dim gridDataSet As DataSet
Dim gridDataTable As DataTable
Dim gridDataColumn As DataColumn
Dim columnName(8) As String
Dim i As Integer
columnName(0) = "会社"
gridDataSet = New DataSet
gridDataTable = New DataTable("myGive")
For i = 0 To 0
gridDataColumn = New DataColumn
gridDataColumn.ColumnName = columnName(i)
gridDataTable.Columns.Add(gridDataColumn)
Next
gridDataSet.Tables.Add(gridDataTable)
For i = 0 To 12
gridDataRow = gridDataTable.NewRow()
gridDataRow("会社") = "000000"
gridDataTable.Rows.Add(gridDataRow)
Next
TableMaintenanceDataGrid1.DataSource = gridDataSet
TableMaintenanceDataGrid1.DataBind()