Şahin Bey henüz deneyebildim cevabınızı. Verdiğiniz kodları aynen kullandım. Fakat ortalamayı aldıramadım. Sadece en üstteki satırın ortalamasını aldırabildim. sorunu da henüz anlayamadım.
Kodları aynen yazılyorum ;
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim satir As DataRow
Dim al As DataSet
Dim apt As OleDbDataAdapter
Dim bs As BindingSource
Dim yol As String = Application.StartupPath.ToString()
Dim con As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\cz.mdb")
Dim i As Integer
yeni = New OleDbConnection(baglanti)
If (yeni.State = ConnectionState.Closed) Then
yeni.Open()
End If
al = New DataSet()
sorgu = "select * from OGRENCILER Where SINIFI like ?"
verial = New OleDbDataAdapter(sorgu, yeni)
'parametre belirleniyor
parametre = New OleDbParameter()
parametre.Value = TextBox1.Text + "%"
verial.SelectCommand.Parameters.Add(parametre)
verial.Fill(al, "OGRENCILER")
DataGridView1.DataSource = al.Tables("OGRENCILER")
satir = al.Tables(0).NewRow
satir(3) = Now
satir(1) = 0
satir(2) = 0
satir(4) = 0
For i = 1 To al.Tables(0).Rows.Count - 1
satir(1) = satir(1) + al.Tables(0).Rows(i).Item(7)
satir(2) = satir(2) + al.Tables(0).Rows(i).Item(

satir(4) = satir(4) + al.Tables(0).Rows(i).Item(9)
Next
satir(1) = satir(1) / (al.Tables(0).Rows.Count)
satir(2) = satir(2) / (al.Tables(0).Rows.Count)
satir(4) = satir(4) / (al.Tables(0).Rows.Count)
al.Tables(0).Rows.InsertAt(satir, al.Tables(0).Rows.Count)
bs = New BindingSource(al, "OGRENCILER")
DataGridView1.DataSource = bs
con.Close()
Teşekkürler.