BASE DE DATOS
Primero generamos los contenidos de las tablas
Deberán quedar así.
Luego generamos el SP para lectura
CREATE PROCEDURE [dbo].[golf]
AS
BEGIN
select a.socio as "socio", a.nombre as "nombre_socio", a.apellido as "apellido_socio", b.nombre as "nombre_cancha", b.par as "Par_cancha",
c.golpes as "Golpes", c.fecha as "Fecha"
from socio a, cancha b, tarjeta c
where
a.socio = c.id_socio
and
b.cancha = c.id_cancha
order
by a.socio, c.fecha desc;
END
VB NET
Luego pasamos a VB NET para generar el proyecto.
Agrego solo dos gridview y un botón.
Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
grilla()
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dt As New DataTable
Dim da As New Data.SqlClient.SqlDataAdapter
da.SelectCommand = New SqlClient.SqlCommand
da.SelectCommand.Connection = New SqlClient.SqlConnection(My.Resources.conn)
da.SelectCommand.CommandType = CommandType.StoredProcedure
da.SelectCommand.CommandText = ("golf")
da.Fill(dt)
Dim promedio As Integer = 0
Dim suma As Integer = 0
Dim socio1 As Integer = 33
Dim socio2 As Integer
Dim socio3 As Integer
Dim cuenta As Integer
Dim parcial As Integer
Dim dtf As New DataTable()
'Genero un DT para cargar los valores de salida.
dtf.Columns.AddRange(New DataColumn()
{New DataColumn("Id_Socio", GetType(Integer)),
New DataColumn("Promedio", GetType(Integer))})
For i = 0 To dt.Rows.Count - 1
socio3 = dt.Rows(i).Item("socio")
'Comparo
el Nro de Socio cargado antes de entrar con el actual.
'Como
son distintos va a entrar
If socio1 <> socio3 Then
socio1 = dt.Rows(i).Item("socio")
'El
segundo For recorre comenzando desde el valor de la posición actual del primero
For z = i To dt.Rows.Count - 1
socio2 = dt.Rows(z).Item("socio")
'Si son iguales opero
If socio1 = socio2 Then
'Acumuladores
If dt.Rows(z).Item("Par_cancha") <
dt.Rows(z).Item("Golpes") Then
parcial =
dt.Rows(z).Item("Golpes") - dt.Rows(z).Item("Par_cancha")
suma = suma +
parcial
cuenta = cuenta + 1
End If
If dt.Rows(z).Item("Par_cancha") > dt.Rows(z).Item("Golpes") Then
parcial = dt.Rows(z).Item("Par_cancha") - dt.Rows(z).Item("Golpes")
suma = suma +
parcial
cuenta = cuenta + 1
End If
'Si no son iguales es que cambio el socio
Else
'Calculo el promedio
promedio = suma /
cuenta
'Asigno a la DT
dtf.Rows.Add(socio1,
promedio)
'Blaqueo variables
suma = 0
cuenta = 0
promedio = 0
Exit For
End If
Next
End If
Next
'Esto lo
calculo y lo muestro para el último
promedio = suma / cuenta
dtf.Rows.Add(socio1, promedio)
'Asigno
valores a la DT final
GridView2.DataSource = dtf
GridView2.DataBind()
End Sub
Public Sub grilla()
Dim dt As New DataTable
Dim da As New Data.SqlClient.SqlDataAdapter
da.SelectCommand = New SqlClient.SqlCommand
da.SelectCommand.Connection = New SqlClient.SqlConnection(My.Resources.Conn)
da.SelectCommand.CommandType = CommandType.StoredProcedure
da.SelectCommand.CommandText = ("golf")
da.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
End Sub
End Class
