VB.NET

VB.NET RSS

DataGridView integer problem?

Please support our VB.NET advertiser: $4.95 a Month - ASP.NET Web Hosting – Click Here!

Thread Solved

•

Join Date: Apr 2007

Posts: 11

Reputation: Fritzeh is an unknown quantity at this point

Solved Threads: 0

Fritzeh

Offline

Newbie Poster

DataGridView integer problem?

Apr 7th, 2008

Hey people, I'm not sure what is wrong with this code and any help would be greatly appreciated:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = DGVShops.CurrentRow.Index
        Dim c As Integer = DGVShops.Item(0, i).Value ' gets value from selected rows first column
        Dim s As String = DGVShops.Item(2, i).Value ' gets a string which is the name (3rd column)
 
        ShowMe(c, s) ' passes parameters
 
    End Sub
 
    Private Sub ShowMe(ByVal c, ByVal s)
        Select Case c ' which should be an integer...
            Case 1 To 46
                label.Text = (s + " some text " + c)
        End Select
    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = DGVShops.CurrentRow.Index
        Dim c As Integer = DGVShops.Item(0, i).Value ' gets value from selected rows first column
        Dim s As String = DGVShops.Item(2, i).Value ' gets a string which is the name (3rd column)

        ShowMe(c, s) ' passes parameters

    End Sub

    Private Sub ShowMe(ByVal c, ByVal s)
        Select Case c ' which should be an integer...
            Case 1 To 46
                label.Text = (s + " some text " + c)
        End Select
    End Sub

I dont think it is passed as a value... although when I used .tostring i managed to get the interger shown.

Last edited by Fritzeh; Apr 7th, 2008 at 5:23 pm.

•

Join Date: Oct 2006

Posts: 169

Reputation: ptaylor965 is an unknown quantity at this point

Solved Threads: 19

ptaylor965 ptaylor965 is offline

Offline

Junior Poster

Re: DataGridView integer problem?

Apr 7th, 2008

Where is the problem?

If the problem is with

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim c As Integer = DGVShops.Item(0, i).Value
Dim c As Integer = DGVShops.Item(0, i).Value

Then try using CType

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim c As Integer = CType(DGVShops.Item(0, i).Value, Integer)
Dim c As Integer = CType(DGVShops.Item(0, i).Value, Integer)

If the problem is the table returning a string and not an integer then this should fix it.

Last edited by ptaylor965; Apr 7th, 2008 at 7:57 pm.

Peter Taylor
Visual Basic.NET Application Developer

TaylorsNet
http://www.taylorsnet.co.uk

•

Join Date: Jan 2008

Posts: 178

Reputation: sbv is an unknown quantity at this point

Solved Threads: 8

sbv

Offline

Junior Poster

Re: DataGridView integer problem?

Apr 8th, 2008

•

Originally Posted by Fritzeh

Hey people, I'm not sure what is wrong with this code and any help would be greatly appreciated:

[CODE]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = DGVShops.CurrentRow.Index
Dim c As Integer = DGVShops.Item(0, i).Value ' gets value from selected rows first column
Dim s As String = DGVShops.Item(2, i).Value ' gets a string which is the name (3rd column).............................................
................................

hi

i think the problem is while fetching the grid value this should be like this...
variable = datagrid1.Item(datagrid1.CurrentRowIndex, 0) ' this will give u current rows 0th column value
like wise.

check this.

Best luck.

Accept Challenges and Enjoy Coding... :)

•

Join Date: Apr 2007

Posts: 11

Reputation: Fritzeh is an unknown quantity at this point

Solved Threads: 0

Fritzeh

Offline

Newbie Poster

Re: DataGridView integer problem?

Apr 8th, 2008

Thanks for your suggestions but I fixed the code by changing the integer to a string, I think Select Case didn't like the integer for some reason?

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = DGVShops.CurrentRow.Index
        Dim c As Integer = DGVShops.Item(0, i).Value ' gets value from selected rows first column
        Dim s As String = DGVShops.Item(2, i).Value ' gets a string which is the name (3rd column)
 
        ShowMe(c, s) ' passes parameters
 
    End Sub
 
    Private Sub ShowMe(ByVal c, ByVal s)
        Select Case c ' which should be an integer...
            Case 1 To 46
                label.Text = (s + " some text " + c)
        End Select
    End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = DGVShops.CurrentRow.Index
        Dim c As string= DGVShops.Item(0, i).Value ' gets value from selected rows first column
        Dim s As String = DGVShops.Item(2, i).Value ' gets a string which is the name (3rd column)
 
        ShowMe(c, s) ' passes parameters
 
    End Sub
 
    Private Sub ShowMe(ByVal c, ByVal s)
        Select Case c ' which should be an integer...
            Case 1 To 46
                label.Text = (s + " some text " + c)
        End Select
    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = DGVShops.CurrentRow.Index
        Dim c As Integer = DGVShops.Item(0, i).Value ' gets value from selected rows first column
        Dim s As String = DGVShops.Item(2, i).Value ' gets a string which is the name (3rd column)

        ShowMe(c, s) ' passes parameters

    End Sub

    Private Sub ShowMe(ByVal c, ByVal s)
        Select Case c ' which should be an integer...
            Case 1 To 46
                label.Text = (s + " some text " + c)
        End Select
    End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = DGVShops.CurrentRow.Index
        Dim c As string= DGVShops.Item(0, i).Value ' gets value from selected rows first column
        Dim s As String = DGVShops.Item(2, i).Value ' gets a string which is the name (3rd column)

        ShowMe(c, s) ' passes parameters

    End Sub

    Private Sub ShowMe(ByVal c, ByVal s)
        Select Case c ' which should be an integer...
            Case 1 To 46
                label.Text = (s + " some text " + c)
        End Select
    End Sub