Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

How to open form from datagridview

Posted on 2009-04-14
5
Medium Priority
?
368 Views
Last Modified: 2012-05-06
Hello,

I have a query that populates a DataGridView. I'm trying to acquire some code to get it to open a databound form when the user selects (double clicks) a row. I have a unique identifier which pulls using e.rowindex. I've completed this successfully in VB/VBA. Any ideas on this will be a huge help! The query is pretty simple. "PendingID" is the unique identifier.

This is written in VB.NET

Thanks!!!
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
 
        Dim OptControlArray() As Control = {OptName, OptClaimNo, OptDate, OptCustodian}
        Dim sConnectionString, sSQL As String
        sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\diw07\My Documents\Daily Backups\phone memo backend.mdb"
 
        If OptClaimNo.Checked = True Then
            sSQL = "SELECT PendingID, PendingClaimNum, Last, First, DatePending, Custodian FROM Pending WHERE PendingClaimNum Like '" & txtClaimNo.Text & "'"
        ElseIf OptName.Checked = True Then
            sSQL = "SELECT PendingID, PendingClaimNum, Last, First, DatePending, Custodian FROM Pending WHERE Last Like '" & txtLastName.Text & "'"
        ElseIf OptCustodian.Checked = True Then
            sSQL = "SELECT PendingID, PendingClaimNum, Last, First, DatePending, Custodian FROM Pending WHERE Last Like '" & cboCustodian.Text & "'"
        ElseIf OptDate.Checked = True Then
            sSQL = "SELECT PendingID, PendingClaimNum, Last, First, DatePending, Custodian FROM Pending WHERE Last Like '" & txtDateRec.Text & "'"
        End If
 
        Dim conn As New System.Data.OleDb.OleDbConnection(sConnectionString)
        Dim cmd As New System.Data.OleDb.OleDbCommand(sSQL, conn)
        conn.Open()
        Dim dat As OleDbDataAdapter = New OleDbDataAdapter(sSQL, conn)
        Dim dt As New DataTable()
 
        dat.Fill(dt)
        lstResults.DataSource = dt
        conn.Close()
 
 
    End Sub
 
 
 
 
 
 
 
********Need something here************
 
 Private Sub lstResults_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles lstResults.CellMouseDoubleClick
        Dim I As Int32
        I = e.RowIndex
 
Another query here?
        
        frm_IMT.Show()
       
    End Sub

Open in new window

0
Comment
Question by:c9k9h
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 53

Accepted Solution

by:
Dhaest earned 2000 total points
ID: 24145145
DataGridView with Detail Edit Form - VS 2005
http://www.codeproject.com/KB/vb/DataGridViewEditForm.aspx
Try this:
 
Private Sub dataGridView1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) 
    Dim id As String = dataGridView1.SelectedRows(0).Cells("id").ToString() 
    Dim frm As New NewForm(id) 
    'passing id into constructor of the new form 
    frm.Show() 
End Sub 

Open in new window

0
 

Author Comment

by:c9k9h
ID: 24147564
I've tried this but I'm getting an error "Too many arguments to Public Sub New()"


Also... won't this create a new form? I want to open an existing form and have it pull the record displayed in the DataGridView.


Thanks!
0
 
LVL 53

Expert Comment

by:Dhaest
ID: 24147606
>> I've tried this but I'm getting an error "Too many arguments to Public Sub New()"

You'll need to create a constructor which accepts the id as a parameter. When you pass the id, you can retrieve the data in your form_load event
0
 

Author Comment

by:c9k9h
ID: 24148183
Okay I found the following example:

Module Module1
                                             
                                             Sub Main()
                                             
                                             Dim con As New Constructor(10)
                                             WriteLine(con.display())
                                             'storing a value in the constructor by passing a value(10) and calling it with the
                                             'display method
                                             Read()
                                             
                                             End Sub
                                             
                                             End Module
                                             
                                             Public Class Constructor
                                             Public x As Integer
                                             
                                             Public Sub New(ByVal value As Integer)
                                             'constructor
                                             x = value
                                             'storing the value of x in constructor
                                             End Sub
                                             
                                             Public Function display() As Integer
                                             Return x
                                             'returning the stored value
                                             End Function
                                             
         End Class                                        



Ultimately what i want to do is assign a value to "id" which would be the results of the on click event (query)? I understand (i think) what is going on in the above example, although it seems quite simple in comparison of what I'm trying to do.
0
 

Author Closing Comment

by:c9k9h
ID: 31570240
Got It,

Thanks!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…
Are you ready to place your question in front of subject-matter experts for more timely responses? With the release of Priority Question, Premium Members, Team Accounts and Qualified Experts can now identify the emergent level of their issue, signal…
Suggested Courses

604 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question