Click here to Skip to main content
15,887,821 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
Dear all.

I am beginner in visual basic. I am trying out few example watching video. I Have 3 forms

1) main -> which allows user to change form
2) project details-> user can add project details
3) result -> views total project details

My main form look like this

VB
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub


    Private Sub Bt_Project_Details_Click(sender As Object, e As EventArgs) Handles Bt_Project_Details.Click
        Me.Hide()
        Project_Details_Form.Show()

    End Sub


End Class

The project detail code as below

VB
Public Class Project_Details_Form



    Private Sub Project_Details_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Project_Data_Set.Project_Data_Table' table. You can move, or remove it, as needed.
        Me.Project_Data_TableTableAdapter.Fill(Me.Project_Data_Set.Project_Data_Table)

    End Sub

    Private Sub Bt_Load_Project_Click(sender As Object, e As EventArgs) Handles Bt_Load_Project.Click

    End Sub


    Private Sub Bt_Cancel_Click(sender As Object, e As EventArgs) Handles Bt_Cancel.Click
        Me.Hide()
        Form1.Show()
    End Sub







    Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
        Project_Data_TableBindingSource.AddNew()





    End Sub

    Private Sub Project_Data_TableBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Project_Data_TableBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Project_Data_TableBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Project_Data_Set)

    End Sub



    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
        Project_Data_TableBindingSource.RemoveCurrent()
    End Sub

    Private Sub FillByToolStripButton_Click(sender As Object, e As EventArgs)
        Try
            Me.Project_Data_TableTableAdapter.FillBy(Me.Project_Data_Set.Project_Data_Table)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class


Problem I am facing

1) Whenever i enter datainto data base for first time data recorded as null. i cant see any data being recorded .When i enter next data i found it being recorded/ edited successfully

2)I would like to say that project data is mandatory, if data is empty leave error msg

3) once data being save , I have kept load option . Load option help user to pass record in final stage . it contain every info on project . My question How can i pass whole data into result form.
Posted

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900