Updating Datagrid not working

[kpreston]

Please help, i have to finish this assignment ASAP.
the project is to create a solution with 3 text box for FactoryID, FactoryName and FactoryAddress. next is to create 2 Datagrid for Customer and Supplier.
Splash screen also create for start up the program.
i have created most of the program but could not figure it out how to get the relationsive to work between Factory, Customer and the supplier.
please reply.

[SammyB]

Welcome to TheScripts! Please read Homework Guidelines and post back with a specific problem. Thanks!

[kpreston]

Welcome to TheScripts! Please read Homework Guidelines and post back with a specific problem. Thanks!

Thanks for the advice.
I have created form with text box (FactoryID, FactoryName and Address etc.)
and created 2 datagrid to display Customer info (FactoryID, CustomerID etc.) the second datagrid is Supplier (FactoryID, SupplierID etc.).
i have finished all of the above, created all the necessary connection (OleDbConnection, OleDbDatasdapter and Dataset) to the Main form.
MMuMain also created to navigate (First, Previous, next etc,). however when i click on next or previous the text box for the factoryID, address and name change accordingly, but the datagrid does not change according to the factory text box. like i had mentioned in the previous i have problems of understanding of how to setup the relationsive/or code?.
please advise.

[Frinavale]

Thanks for the advice.
I have created form with text box (FactoryID, FactoryName and Address etc.)
and created 2 datagrid to display Customer info (FactoryID, CustomerID etc.) the second datagrid is Supplier (FactoryID, SupplierID etc.).
i have finished all of the above, created all the necessary connection (OleDbConnection, OleDbDatasdapter and Dataset) to the Main form.
MMuMain also created to navigate (First, Previous, next etc,). however when i click on next or previous the text box for the factoryID, address and name change accordingly, but the datagrid does not change according to the factory text box. like i had mentioned in the previous i have problems of understanding of how to setup the relationsive/or code?.
please advise.

How have you tried changing the DataGrid?
Could you post a snippet of your code relating to this functionality so that we have a better idea of what you're doing?

Thanks

-Frinny

[kpreston]

Below is the code from Main. Please asvice.

 Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim printRecords As Integer
        Dim dgtsCustomer As New DataGridTableStyle()
        Dim dgtsSupplier As New DataGridTableStyle()
        Dim pbndTemp As Binding
        Dim dtCustomers As DataTable
 
        ODbDaFactory.Fill(DsFactory3)
 
        Call EditState(cblnNotEditing)
 
        dgtsCustomer.AlternatingBackColor = Color.LightBlue
        dgtsCustomer.GridLineColor = Color.Silver
        dgtsCustomer.GridLineStyle = DataGridLineStyle.Solid
        dgtsCustomer.SelectionForeColor = Color.Blue
        dgtsCustomer.SelectionBackColor = Color.Silver
        dgtsCustomer.MappingName = _
        DsFactory.tblCustomer.TableName
        dgCustomer.TableStyles.Add(dgtsCustomer)
 
        'Customer, Formt the datagrid columns.
        dgtsCustomer.GridColumnStyles(0).HeaderText = "Factory ID"
        dgtsCustomer.GridColumnStyles(0).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(1).HeaderText = "Customer ID"
        dgtsCustomer.GridColumnStyles(1).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(2).HeaderText = "Name"
        dgtsCustomer.GridColumnStyles(2).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(3).HeaderText = "Address"
        dgtsCustomer.GridColumnStyles(3).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(4).HeaderText = "City"
        dgtsCustomer.GridColumnStyles(4).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(5).HeaderText = "State"
        dgtsCustomer.GridColumnStyles(5).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(6).HeaderText = "Zip Code"
        dgtsCustomer.GridColumnStyles(6).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(7).HeaderText = "Credit Limit"
        dgtsCustomer.GridColumnStyles(7).Alignment = _
        HorizontalAlignment.Center
        dgtsCustomer.GridColumnStyles(8).HeaderText = "Balance Due"
        dgtsCustomer.GridColumnStyles(8).Alignment = _
        HorizontalAlignment.Center
 
        'Supplier, Formt the datagrid columns
        dgtsSupplier.AlternatingBackColor = Color.LightBlue
        dgtsSupplier.GridLineColor = Color.Silver
        dgtsSupplier.GridLineStyle = DataGridLineStyle.Solid
        dgtsSupplier.SelectionForeColor = Color.Blue
        dgtsSupplier.SelectionBackColor = Color.Silver
        dgtsSupplier.MappingName = _
        DsFactory.tblSupplier.TableName
        dgSupplier.TableStyles.Add(dgtsSupplier)
 
        dgtsSupplier.GridColumnStyles(0).HeaderText = "Factory ID"
        dgtsSupplier.GridColumnStyles(0).Alignment = _
        HorizontalAlignment.Center
        dgtsSupplier.GridColumnStyles(1).HeaderText = "Supplier ID"
        dgtsSupplier.GridColumnStyles(1).Alignment = _
        HorizontalAlignment.Center
        dgtsSupplier.GridColumnStyles(2).HeaderText = "Supplier Name"
        dgtsSupplier.GridColumnStyles(2).Alignment = _
        HorizontalAlignment.Center
        dgtsSupplier.GridColumnStyles(3).HeaderText = "Address"
        dgtsSupplier.GridColumnStyles(3).Alignment = _
        HorizontalAlignment.Center
        dgtsSupplier.GridColumnStyles(4).HeaderText = "City"
        dgtsSupplier.GridColumnStyles(4).Alignment = _
        HorizontalAlignment.Center
        dgtsSupplier.GridColumnStyles(5).HeaderText = "State"
        dgtsSupplier.GridColumnStyles(5).Alignment = _
        HorizontalAlignment.Center
        dgtsSupplier.GridColumnStyles(6).HeaderText = "Zip Code"
        dgtsSupplier.GridColumnStyles(6).Alignment = _
        HorizontalAlignment.Center
        dgtsSupplier.GridColumnStyles(7).HeaderText = "Credit Limit"
        dgtsSupplier.GridColumnStyles(7).Alignment = _
        HorizontalAlignment.Center
 
 
 
    End Sub
 
 
 
    Private Sub dgCustomer_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgCustomer.CurrentCellChanged
        Dim drArray() As DataRow
        Dim pintFactoryId As Integer
        Dim pintCount As Integer
        Dim pintFactoryName As String
        Dim pintFactoryAddress As String
 
        drArray = DsFactory.tblCustomer(dgCustomer.CurrentRowIndex).GetChildRows _
        ("drtblCustomer")
 
        pintFactoryId = drArray.GetUpperBound(0) + 1
        txtFactoryId.Text = pintFactoryId.ToString
 
        txtFactoryId.Text = pintFactoryId.ToString
 
    End Sub

[Frinavale]

Below is the code from Main. Please asvice.

 Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim printRecords As Integer
        Dim dgtsCustomer As New DataGridTableStyle()
        Dim dgtsSupplier As New DataGridTableStyle()
        Dim pbndTemp As Binding
        Dim dtCustomers As DataTable
 
      ..
    End Sub
 
 
 
    Private Sub dgCustomer_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgCustomer.CurrentCellChanged
        Dim drArray() As DataRow
        Dim pintFactoryId As Integer
        Dim pintCount As Integer
        Dim pintFactoryName As String
        Dim pintFactoryAddress As String
 
        drArray = DsFactory.tblCustomer(dgCustomer.CurrentRowIndex).GetChildRows _
        ("drtblCustomer")
 
        pintFactoryId = drArray.GetUpperBound(0) + 1
        txtFactoryId.Text = pintFactoryId.ToString
 
        txtFactoryId.Text = pintFactoryId.ToString
 
    End Sub

It appears that you are taking the content from your data set and filling text boxes with the data.

I don't see where you are changing the view of the dataGrid.
I still don't understand your use of the "Next" and "Previous" buttons.

Are you using the Next and Previous buttons to allow the user to update data in your dataSet? Then want to update your dataGrid with this new data showing?

Can you not just use "RowEditing" and "RowUpdating" to allow the user to do their updating in the dataGrid?

I'm sorry but I still don't understand what you're trying to accomplish.

-Frinny

[kpreston]

Here is the navigates for first, previous, next and last.
How can i change datagrid when i click on next or previous. should i create the relationship between factory, customer and supplier. please advice.

Private Sub mmuNavigateFirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigateFirst.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position = 0
    End Sub
 
 
    Private Sub mmuNavigatePrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigatePrevious.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position -= 1
    End Sub
 
       Private Sub mmuNavigateNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigateNext.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position += 1
 
    End Sub
 
      Private Sub mmuNavigateLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigateLast.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position = Me.DsFactory3.tblFactory.Rows.Count - 1
    End Sub
 

[Frinavale]

Here is the navigates for first, previous, next and last.
How can i change datagrid when i click on next or previous. should i create the relationship between factory, customer and supplier. please advice.

Private Sub mmuNavigateFirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigateFirst.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position = 0
    End Sub
 
 
    Private Sub mmuNavigatePrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigatePrevious.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position -= 1
    End Sub
 
       Private Sub mmuNavigateNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigateNext.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position += 1
 
    End Sub
 
      Private Sub mmuNavigateLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mmuNavigateLast.Click
        Me.BindingContext(DsFactory3, "tblfactory").Position = Me.DsFactory3.tblFactory.Rows.Count - 1
    End Sub
 

Please check out MSDN's article on DataGrids and their members and MSDN's Article on DataGrid Events.

I cannot understand your problem.
A dataGrid shows many rows...not just one...so there's no need to use "next' and "previous".

A dataGrid could show all of the rows in your dataSet if you'd like it to...then users just have to glance through the dataGrid to find the row that they'd want to edit.

A dataGrid also has Paging functionality......which can take you to the first row or the last row in the dataGrid.

Why can't you just use the update functionality that is built into the dataGrid? Let the user look at the information in the grid, let them select "edit"...let them edit the information inside the grid....This will simplify your problem quite a bit.

I'm going to ask other experts to take a look at your problem and hopefully we can help you get through this.

-Frinny

[giveDsolution]

Why dunt u try Gridview Paging...

Set Allowpaging true
then write the code in vb Page.....

Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
Me.GridView1.PageIndex = e.NewPageIndex
fillgrid() [Call the fuction to fill gridview]

End Sub
It may solve ur problem