Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

data grid View control to display data sorted by query

0 views
Skip to first unread message

Matt

unread,
Jun 3, 2008, 6:50:00 AM6/3/08
to
Hi

I am using a dataset wizard to generate my dataset. I have now add a Queries
Table Adapter with 4 queries inside it and am now trying to feed the data in
to a data grid View control to display the data sorted by query.

But I keep getting errors when I bind the data to the data grid View control.

Here is my code

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Imports BookingsDataSetTableAdapters
Imports DisplayDataSetTableAdapters
Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e
As System.EventArgs) Handles Calendar1.SelectionChanged
Dim BookingDataAdapter As New tblBookingsTableAdapter
Dim BookingDataSet As New BookingsDataSet.tblBookingsDataTable
Dim BookingDataTable As New BookingsDataSet.tblBookingsDataTable
Dim BookingDataRow As DataRow
Dim DisplayDataAdapter As New tblDisplayTableAdapter
Dim DisplayDataSet As New DisplayDataSet.tblDisplayDataTable
Dim DisplayDataTable As New DisplayDataSet.tblDisplayDataTable
Dim DisplayZone1DataSet As New QueriesTableAdapter()
Dim DisplayDataRow As DataRow
Dim X As Integer

'/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/
BookingDataAdapter.Fill(BookingDataSet) ' Set the source table.
BookingDataTable = BookingDataSet

'/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/-*/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/
DisplayDataAdapter.Fill(DisplayDataSet) ' Set the source table.
DisplayDataTable = DisplayDataSet

'/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/-*/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/*-/
'Fill display with data from bookings

For X = 0 To BookingDataTable.Rows.Count - 1
Dim BookingDate As Date
Dim SystremDate As Date
Dim CalendarDate As Date
Dim MyLessionID As String
Dim StringCon As String
BookingDataRow = BookingDataTable.Rows(X)
SystremDate = Left(Now(), 10)
BookingDate = BookingDataRow("Date")
CalendarDate = Calendar1.SelectedDate
If BookingDate = CalendarDate Then

If BookingDataRow("zone") = 1 Then
MyLessionID = BookingDataRow("LessionID")
DisplayDataRow = DisplayDataTable.Rows(2)
DisplayDataRow(MyLessionID) = BookingDataRow("teacher")
DisplayDataRow = DisplayDataTable.Rows(1)
DisplayDataRow(MyLessionID) = BookingDataRow("Subject")
DisplayDataRow = DisplayDataTable.Rows(0)
StringCon = BookingDataRow("Year")
DisplayDataRow(MyLessionID) = StringCon
End If

If BookingDataRow("zone") = 2 Then
MyLessionID = BookingDataRow("LessionID")
DisplayDataRow = DisplayDataTable.Rows(5)
DisplayDataRow(MyLessionID) = BookingDataRow("teacher")
DisplayDataRow = DisplayDataTable.Rows(4)
DisplayDataRow(MyLessionID) = BookingDataRow("Subject")
DisplayDataRow = DisplayDataTable.Rows(3)
DisplayDataRow(MyLessionID) = BookingDataRow("Year")
End If

If BookingDataRow("zone") = 3 Then
MyLessionID = BookingDataRow("LessionID")
DisplayDataRow = DisplayDataTable.Rows(8)
DisplayDataRow(MyLessionID) = BookingDataRow("teacher")
DisplayDataRow = DisplayDataTable.Rows(7)
DisplayDataRow(MyLessionID) = BookingDataRow("Subject")
DisplayDataRow = DisplayDataTable.Rows(6)
DisplayDataRow(MyLessionID) = BookingDataRow("Year")
End If

If BookingDataRow("zone") = 4 Then
MyLessionID = BookingDataRow("LessionID")
DisplayDataRow = DisplayDataTable.Rows(11)
DisplayDataRow(MyLessionID) = BookingDataRow("teacher")
DisplayDataRow = DisplayDataTable.Rows(10)
DisplayDataRow(MyLessionID) = BookingDataRow("Subject")
DisplayDataRow = DisplayDataTable.Rows(9)
DisplayDataRow(MyLessionID) = BookingDataRow("Year")
End If
End If
Next X
'Zone1DisplayGrid.BorderColor = Drawing.Color.Black
'Zone1DisplayGrid.BorderStyle = BorderStyle.Groove
'Zone1DisplayGrid.DataSource = DisplayDataSet
Zone1DisplayGrid.DataSource = DisplayZone1DataSet.qryZone1
Zone1DisplayGrid.DataBind()
Zone2DisplayGrid.DataSource = DisplayZone1DataSet.qryZone2
'Zone2DisplayGrid.DataBind()
Zone3DisplayGrid.DataSource = DisplayZone1DataSet.qryZone3
'Zone3DisplayGrid.DataBind()
Zone4DisplayGrid.DataSource = DisplayZone1DataSet.qryZone4
' Zone4DisplayGrid.DataBind()
End Sub

End Class

Thank your for your help

0 new messages