Solved

Datagridview combobox column problem

Posted on 2009-04-10
1
207 Views
Last Modified: 2012-05-06
I have a grid that has a column of comboboxes.  I'm pulling from a database for three separate conditions and filling three datasets.  I want to bind these datasets to one particular column, but only every third cell.  In other words, row one should bind to ds1, row 2 to ds2, row 3 to ds3, row 4 to ds1, row 5 to ds2, etc.

I am doing this

        For rw As Integer = 0 To 23 Step 3
            Dim cell As New DataGridViewComboBoxCell
            cell.DataSource = dsslide1
            dgvNewJob.Rows(rw).Cells(1) = cell
         Next

        For rw As Integer = 1 To 23 Step 3
            Dim cell As New DataGridViewComboBoxCell
            cell.DataSource = dsslide1
            dgvNewJob.Rows(rw).Cells(1) = cell
         Next

I get errors and the box does not contain any data.

Any ideas what I am doing wrong?
0
Comment
Question by:ddepuemd
1 Comment
 

Accepted Solution

by:
ddepuemd earned 0 total points
ID: 24121865
I found the answer to load different values in comboboxes in the same column of a datagridview.
            'fill slide and type 1
            For rw As Integer = 0 To 23 Step 3
                Try
                    Dim cell As New DataGridViewComboBoxCell
                    For cnt As Integer = 0 To dsslide1.Tables(0).Rows.Count - 1
                        cell.Items.Add(dsslide1.Tables(0).Rows(cnt).Item("description"))
                    Next
                    JobGrid.Rows(rw).Cells(1) = cell
 
                    Dim cell1 As New DataGridViewComboBoxCell
                    For cnt As Integer = 0 To dstype1.Tables(0).Rows.Count - 1
                        cell1.Items.Add(dstype1.Tables(0).Rows(cnt).Item("description"))
                    Next
                    JobGrid.Rows(rw).Cells(7) = cell1
                Catch ex As Exception
                    errlog.WriteError("Error in filling slide1 and type1: " & ex.Message, "LoadNewJob")
                End Try
            Next
 
            'fill slide and type 2
            For rw As Integer = 1 To 23 Step 3
                Try
                    Dim cell As New DataGridViewComboBoxCell
                    For cnt As Integer = 0 To dsslide2.Tables(0).Rows.Count - 1
                        cell.Items.Add(dsslide2.Tables(0).Rows(cnt).Item("description"))
                    Next
                    JobGrid.Rows(rw).Cells(1) = cell
 
                    Dim cell1 As New DataGridViewComboBoxCell
                    For cnt As Integer = 0 To dstype2.Tables(0).Rows.Count - 1
                        cell1.Items.Add(dstype2.Tables(0).Rows(cnt).Item("description"))
                    Next
                    JobGrid.Rows(rw).Cells(7) = cell1
                Catch ex As Exception
                    errlog.WriteError("Error in filling slide2 and type2: " & ex.Message, "LoadNewJob")
                End Try
            Next
 
            'fill slide and type 3
            For rw As Integer = 2 To 23 Step 3
                Try
                    Dim cell As New DataGridViewComboBoxCell
                    For cnt As Integer = 0 To dsslide3.Tables(0).Rows.Count - 1
                        cell.Items.Add(dsslide3.Tables(0).Rows(cnt).Item("description"))
                    Next
                    JobGrid.Rows(rw).Cells(1) = cell
 
                    Dim cell1 As New DataGridViewComboBoxCell
                    For cnt As Integer = 0 To dstype3.Tables(0).Rows.Count - 1
                        cell1.Items.Add(dstype3.Tables(0).Rows(cnt).Item("description"))
                    Next
                    JobGrid.Rows(rw).Cells(7) = cell1
                Catch ex As Exception
                    errlog.WriteError("Error in filling slide3 and type3: " & ex.Message, "LoadNewJob")
                End Try
            Next

Open in new window

0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

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

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
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…
Along with being a a promotional video for my three-day Annielytics Dashboard Seminor, this Micro Tutorial is an intro to Google Analytics API data.
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

773 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