根据条件查询生成两张表并合并绑定datagridview控件

 Dim Atable As DataTable = clsErp.selectTA(strdate, enddate, TBTA001) '销货单
        Dim Btable As DataTable = clsErp.selectTB(strdate, enddate, TBTA001) '销退单
        'Dim Ctable As DataTable = Atable.Clone()
        'Dim myrow As DataRow = Atable.NewRow()
        '''''''''''''''''''''''''''''''''''''''
        '''''''''''''''''''''''''''''''''''''''
        ''''''两表合并一张表数据'''''''''''''''
        '''''''''''''''''''''''''''''''''''''''
        '''''''''''''''''''''''''''''''''''''''
        For Each row2 As DataRow In Btable.Rows
            Dim rowtmp As DataRow = Atable.NewRow()
&nb