DataGridView in 2 Database Table

I am Using Code this for DatagridView .. datagrid compain two talbel(Table1, Table2).
Table1 Filed is: Regno, ST_Name, AmountPaid, FeeType, Class, Section
Table2 Filed is: Regno, Sname, FeeAmount, FeeType, Class, Section. Below I used code..please tell me.. wht problem that..



Dim strSQL7 As String = "SELECT Fees_Transaction.Regno,Fees_Transaction.ST_Name,Sum(Fees_Transaction.Amount_Paid)as TotalAmountPaid,FeesMaster.FeeAmount,Fees_Transaction.FeeType,Fees_Transaction.Class,Fees_Transaction.Section FROM Fees_Transaction INNER JOIN FeesMaster ON Fees_Transaction.Regno=FeesMaster.Regno WHERE Fees_Transaction.class='" & cboClass.Text & "' and Fees_Transaction.section='" & cboSection.Text & "' and Fees_Transaction.FeeType='" & cboFeeType.Text & "' GROUP BY Fees_Transaction.Regno,Fees_Transaction.ST_Name,Fees_Transaction.FeeType,Fees_Transaction.Class,Fees_Transaction.Section,FeesMaster.FeeAmount"
Dim DaAp7 As New SqlDataAdapter(strSQL7, con)
Dim DSet7 As New DataTable
DaAp7.Fill(DSet7)
'========================================
With Me.DataGridView1
.Columns.Add("Regno", "RegNo")
.Columns.Add("ST_Name", "Student Name")
.Columns.Add("Amount_Paid", "Amount Paid")
.Columns.Add("Remaining", "Remaining")
.Columns.Add("TotalAmt", "Total Amount")
.Columns.Add("FeeType", "Fee Type")
.Columns.Add("Class", "Class")
.Columns.Add("Section", "Section")
.Columns(0).Width = 85
.Columns(1).Width = 250
.Columns(2).Width = 150
.Columns(3).Width = 150
.Columns(4).Width = 140
.Columns(5).Width = 150
.Columns(6).Width = 90
.Columns(7).Width = 90
' .AllowUserToAddRows = False
.EditMode = DataGridViewEditMode.EditProgrammatically
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End With

For Each dr As DataRow In DSet7.Rows
Me.DataGridView1.Rows.Add()
With Me.DataGridView1.Rows(Me.DataGridView1.Rows.Count - 1)
.Cells("Regno").Value = dr("Regno")
.Cells("ST_Name").Value = dr("ST_Name")
.Cells("Amount_Paid").Value = dr("TotalAmountPaid")
'.Cells("TotalAmt").Value = dr("FeeAmount")
.Cells("FeeType").Value = "Total"
.Cells("Class").Value = dr("Class")
.Cells("Section").Value = dr("Section")
End With
Next