给girdview添加数据、并简单分页（使用datatable作为数据源）

 ' データを取得する
    Protected Sub GetDataGvOrderList()
        Dim ota1 As New otherorderTableAdapter
        Dim ota2 As New orderdataTableAdapter
        Dim rdta As New returndataTableAdapter


        Dim storeid As Integer = Integer.Parse(ddlStore.SelectedValue)
        Dim targetcustomer As Integer = Integer.Parse(ddlCustomer.SelectedValue)
        Dim slipnumber As String = txtSlipNumber.Text
        Dim targetyear As Integer = Integer.Parse(ddlYear.SelectedValue)
        Dim targetmonth As Integer = Integer.Parse(ddlMonth.SelectedValue)


        If IsPostBack = True Then
            If rbOrder.Checked Then
                Dim odt As DataTable = ota1.GetOtherorderList(storeid, targetcustomer, slipnumber, _
                                        targetyear, targetmonth)


                Dim odt2 As DataTable = ota2.GetOrderdataList(storeid, targetcustomer, slipnumber, _
                 targetyear, targetmonth)


                Dim dt As New DataTable
                Dim dr As DataRow = dt.NewRow()
                dt.Columns.Add("store_name")
                dt.Columns.Add("abbreviation")
                dt.Columns.Add("slip_number")
                dt.Columns.Add("order_date")
                dt.Columns.Add("quantity_sum")
                dt.Columns.Add("cost_sum")
                dt.Columns.Add("price_sum")
                dt.Columns.Add("繰越")
                dt.Columns.Add("payment_date")
                dt.Columns.Add("order_id")
                dt.Columns.Add("table_name")


                For index As Integer = 0 To odt.Rows.Count - 1
                    dr = dt.NewRow()
                    dr.Item("order_id") = odt.Rows(index).Item(0).ToString
                    dr.Item("store_name") = odt.Rows(index).Item(1).ToString
                    dr.Item("abbreviation") = odt.Rows(index).Item(2).ToString
                    dr.Item("slip_number") = odt.Rows(index).Item(3).ToString
                    dr.Item("order_date") = DateTime.Parse(odt.Rows(index).Item(4))
                    dr.Item("quantity_sum") = odt.Rows(index).Item(5).ToString
                    dr.Item("cost_sum") = odt.Rows(index).Item(6).ToString
                    dr.Item("price_sum") = odt.Rows(index).Item(7).ToString
                    dr.Item("payment_date") = odt.Rows(index).Item(8).ToString
                    dr.Item("table_name") = "OTHERORDER"
                    dt.Rows.Add(dr)
                Next
                For index As Integer = 0 To odt2.Rows.Count - 1
                    dr = dt.NewRow()
                    dr.Item("order_id") = odt2.Rows(index).Item(0).ToString
                    dr.Item("store_name") = odt2.Rows(index).Item(2).ToString
                    dr.Item("abbreviation") = odt2.Rows(index).Item(4).ToString
                    dr.Item("slip_number") = odt2.Rows(index).Item(5).ToString
                    dr.Item("order_date") = DateTime.Parse(odt2.Rows(index).Item(6))
                    dr.Item("quantity_sum") = odt2.Rows(index).Item(8).ToString
                    dr.Item("cost_sum") = odt2.Rows(index).Item(9).ToString
                    dr.Item("price_sum") = odt2.Rows(index).Item(10).ToString
                    dr.Item("payment_date") = odt2.Rows(index).Item(14).ToString
                    dr.Item("table_name") = "ORDERDATA"
                    dt.Rows.Add(dr)
                Next
                'Dim dv As DataView = dt.DefaultView
                'dv.Sort = "order_date desc"
                'Dim dt2 As DataTable = dv.ToTable()


                gvOrderList.DataSource = dt
                gvOrderList.DataBind()
            ElseIf rbReturn.Checked Then


                Dim r1 As DataTable = ota1.GetOtherProcessDataList(storeid, targetcustomer, slipnumber, _
                 targetyear, targetmonth)


                Dim r2 As DataTable = rdta.GetReturnDataList(storeid, targetcustomer, slipnumber, _
                                                        targetyear, targetmonth)


                Dim dt As New DataTable
                Dim dr As DataRow = dt.NewRow()
                dt.Columns.Add("store_name")
                dt.Columns.Add("abbreviation")
                dt.Columns.Add("slip_number")
                dt.Columns.Add("return_date")
                dt.Columns.Add("quantity_sum")
                dt.Columns.Add("cost_sum")
                dt.Columns.Add("price_sum")
                dt.Columns.Add("繰越")
                dt.Columns.Add("payment_date")
                dt.Columns.Add("return_id")
                dt.Columns.Add("table_name")


                For index As Integer = 0 To r1.Rows.Count - 1
                    dr = dt.NewRow()
                    dr.Item("return_id") = r1.Rows(index).Item(0).ToString
                    dr.Item("store_name") = r1.Rows(index).Item(3).ToString
                    dr.Item("abbreviation") = r1.Rows(index).Item(4).ToString
                    dr.Item("slip_number") = r1.Rows(index).Item(5).ToString
                    dr.Item("return_date") = DateTime.Parse(r1.Rows(index).Item(6))
                    dr.Item("quantity_sum") = r1.Rows(index).Item(7).ToString
                    dr.Item("cost_sum") = r1.Rows(index).Item(8).ToString
                    dr.Item("price_sum") = r1.Rows(index).Item(9).ToString
                    dr.Item("payment_date") = r1.Rows(index).Item(10).ToString
                    dr.Item("table_name") = "OTHERPROCESS"
                    dt.Rows.Add(dr)
                Next


                For index As Integer = 0 To r2.Rows.Count - 1
                    dr = dt.NewRow()
                    dr.Item("return_id") = r2.Rows(index).Item(0).ToString
                    dr.Item("store_name") = r2.Rows(index).Item(2).ToString
                    dr.Item("abbreviation") = r2.Rows(index).Item(4).ToString
                    dr.Item("slip_number") = r2.Rows(index).Item(5).ToString
                    dr.Item("return_date") = DateTime.Parse(r2.Rows(index).Item(6))
                    dr.Item("quantity_sum") = r2.Rows(index).Item(7).ToString
                    dr.Item("cost_sum") = r2.Rows(index).Item(8).ToString
                    dr.Item("price_sum") = r2.Rows(index).Item(9).ToString
                    dr.Item("payment_date") = r2.Rows(index).Item(10).ToString
                    dr.Item("table_name") = "RETURNDATA"
                    dt.Rows.Add(dr)
                Next


                'Dim dv As DataView = dt.DefaultView
                'dv.Sort = "return_date desc"
                'Dim dt2 As DataTable = dv.ToTable()


                gvReturnList.DataSource = dt
                gvReturnList.DataBind()
            End If
        End If

    End Sub

    ''' <summary>
    ''' 改ページ(返品)
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub gvReturnList_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvReturnList.PageIndexChanging
        If rbOrder.Checked Then
            gvOrderList.PageIndex = e.NewPageIndex
            GetDataGvOrderList()
        ElseIf rbReturn.Checked Then
            gvReturnList.PageIndex = e.NewPageIndex
            GetDataGvOrderList()
        End If
    End Sub

    ''' <summary>
    ''' 改ページ（発注）
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub gvOrderList_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvOrderList.PageIndexChanging
        If rbOrder.Checked Then
            gvOrderList.PageIndex = e.NewPageIndex
            GetDataGvOrderList()
        ElseIf rbReturn.Checked Then
            gvOrderList.PageIndex = e.NewPageIndex
            GetDataGvOrderList()
        End If
    End Sub