Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Paging Problem

Status
Not open for further replies.
SBTBILL

SBTBILL

Programmer
May 1, 2000
515
US
I can't get paging to work. It either stays on the same group or shows nothing.

Imports System.Data.OleDb
Imports System.Data.SqlTypes
Imports System.Data.SqlDbType
Imports system.Data.SqlClient
Imports system.Data
'
'
Partial Class _Default
Inherits System.Web.UI.Page
'
Dim GRABTXT As New SqlConnection
Dim grab1 As New SqlCommand
Dim GRAB2 As New SqlCommand
Dim grabline As String
'
Public GRAB As New SqlConnection("data source = sqlprod; user id = FOXPRO; password = $SBT@123")
'
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY TotalYear desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by sum(april+may+june+july+august+september"
Me.grabline = Me.grabline + " +october+november+december+january+february+march)DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by sum(april+may+june+july+august+september"
Me.grabline = Me.grabline + " +october+november+december+january+february+march)DESC "
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub


Protected Sub Btntheyear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnYear.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
'Me.grabline = Me.grabline + " ORDER BY dist_id desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub

Protected Sub BtnApril_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApril.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY april desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub

Protected Sub btnMay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMay.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY may desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub
Protected Sub Btnjune_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnJune.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY june desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub

Protected Sub btnJuly_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnJuly.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY July desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub

Protected Sub btnAugust_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAugust.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY august desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub


Protected Sub btnSeptember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSeptember.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY september desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub

Protected Sub btnOctober_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOctober.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY october desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If

End Sub

Protected Sub btnNovember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNovember.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY november desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalyear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub

Protected Sub btndecember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btndecember.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
Me.grabline = Me.grabline + " MAY, "
Me.grabline = Me.grabline + " JUNE , "
Me.grabline = Me.grabline + " JULY , "
Me.grabline = Me.grabline + " AUGUST , "
Me.grabline = Me.grabline + " SEPTEMBER , "
Me.grabline = Me.grabline + " OCTOBER , "
Me.grabline = Me.grabline + " NOVEMBER , "
Me.grabline = Me.grabline + " DECEMBER , "
Me.grabline = Me.grabline + " JANUARY , "
Me.grabline = Me.grabline + " FEBRUARY , "
Me.grabline = Me.grabline + " MARCH , "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID, "
Me.grabline = Me.grabline + " ltrim(FirstName)+' '+ltrim(LastName)+' '+company as Mname, "
Me.grabline = Me.grabline + " April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march as TotalYear "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " Left Outer Join "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS "
Me.grabline = Me.grabline + " ON "
Me.grabline = Me.grabline + " DISTRIBUTORS.DBO.DISTRIBUTORS.DIST_ID = "
Me.grabline = Me.grabline + " SBT_ARCHIVE.DBO.HISTORY_PV.DIST_ID "
Me.grabline = Me.grabline + " where THEYEAR = @theyear "
Me.grabline = Me.grabline + " ORDER BY december desc "
'
Dim grab2 As New SqlCommand(Me.grabline, GRAB)
'
grab2.Parameters.AddWithValue("theyear", txtyear.Text)
Dim G1 As New SqlDataAdapter(grab2)
Dim G2 As New DataSet
'
G1.Fill(G2, "THEPV")
'
grdpv.DataSource = G2.Tables("THEPV")
grdpv.DataBind()
'
grdpv.Visible = True
'
Me.Header.Title = "Company PV History for " + Me.txtyear.Text
'
'******************************
' COMPUTE SEMINAR YEAR TOTALS *
'******************************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " "
End If
Me.grabline = Me.grabline + " SUM(APRIL) AS TAPRIL , "
Me.grabline = Me.grabline + " SUM(MAY) AS TMAY, "
Me.grabline = Me.grabline + " SUM(JUNE)AS TJUNE , "
Me.grabline = Me.grabline + " SUM(JULY)AS TJULY , "
Me.grabline = Me.grabline + " SUM(AUGUST) AS TAUGUST , "
Me.grabline = Me.grabline + " SUM(SEPTEMBER) AS TSEPTEMBER , "
Me.grabline = Me.grabline + " SUM(OCTOBER) AS TOCTOBER , "
Me.grabline = Me.grabline + " SUM(NOVEMBER) AS TNOVEMBER , "
Me.grabline = Me.grabline + " SUM(DECEMBER) AS TDECEMBER , "
Me.grabline = Me.grabline + " SUM(JANUARY) AS TJANUARY , "
Me.grabline = Me.grabline + " SUM(FEBRUARY) AS TFEBRUARY , "
Me.grabline = Me.grabline + " SUM(MARCH) AS TMARCH, "
Me.grabline = Me.grabline + " SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) as TTotalYear, "
Me.grabline = Me.grabline + " ' ' as pholder "
Me.grabline = Me.grabline + " FROM SBT_ARCHIVE.DBO.HISTORY_PV "
Me.grabline = Me.grabline + " where "
If Me.txttop.Text <> "" Then
Me.grabline = Me.grabline + " (dist_id in "
Me.grabline = Me.grabline + " (Select top " + Me.txttop.Text + " Dist_id "
Me.grabline = Me.grabline + " from sbt_archive.dbo.history_pv "
Me.grabline = Me.grabline + " where theyear = '" + Me.txtyear.Text + "' "
Me.grabline = Me.grabline + " group by dist_id "
Me.grabline = Me.grabline + " order by SUM(April+may+june+july+august+september+october+november+"
Me.grabline = Me.grabline + " december+january+february+march) DESC ))"
Me.grabline = Me.grabline + " AND (THEYEAR = '" + Me.txtyear.Text + "') "
Else
Me.grabline = Me.grabline + " THEYEAR = '" + Me.txtyear.Text + "'"
Me.grabline = Me.grabline + " GROUP BY THEYEAR "
Me.grabline = Me.grabline + " order by ttotalYear DESC"
End If
Dim grabT1 As New SqlCommand(Me.grabline, GRAB)
'
grabT1.Parameters.AddWithValue("theyear", txtyear.Text)
Dim GT3 As New SqlDataAdapter(grabT1)
Dim GT2 As New DataSet
'
GT3.Fill(GT2, "THETPV")
'
TGRDPV.DataSource = GT2.Tables("THETPV")
TGRDPV.DataBind()
'
TGRDPV.Visible = True
'
GRAB.Close()
'
End If
End Sub

Protected Sub btnJanuary_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnJanuary.Click
If Me.txtyear.Text = "" Then
Me.LBLERROR.Text = "Year may not be blank."
Me.LBLERROR.Visible = True
Else
Me.LBLERROR.Visible = False
GRAB.Open()
'********************
' GET INDIVIDUAL PV *
'********************
If Me.txttop.Text = "" Then
Me.grabline = "SELECT THEYEAR, "
Else
Me.grabline = "SELECT TOP " + Me.txttop.Text + " THEYEAR, "
End If
Me.grabline = Me.grabline + " APRIL , "
 
Sort by date Sort by votes
Maybe if you just post the relevant parts of the code, used code tags and explain carefully what you tried so far will be easier to get an answer

Cheers,
Dian
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Ken01
  • Locked
  • Question
Problem with CopyMemory statement
Replies
1
Views
402
strongm
strongm
Raj Gupta
  • Locked
  • Question
VB6 Focus problem after validation
Replies
4
Views
522
strongm
strongm
Ken01
  • Locked
  • Question
Problem with form names in VB6
Replies
3
Views
391
Ken01
Ken01
sal21
  • Locked
  • Question
Pplease for strongm, ftp problem to download file and copy inn c:\tabulati\
Replies
10
Views
637
sal21
sal21
malaygal
  • Locked
  • Question
Problem with concatenating variable to a control name
Replies
9
Views
569
Andrzejek
Andrzejek

Part and Inventory Search

Sponsor

Back
Top