datagrid

[King_Ging]

Hi All,

question: i need a way of viewing info from a database like the datagrid and i want the user to double click a line ad it then opens a form with the info and the user can then change the info, but with the datagrid you can cick on each cell and i dont want that i wnt that the whole line is selected when clicked on

many thanks

alex t

[Slow_Learner]

You may want to try to teach the ListView control to talk to your datasource. I don't like DataGrid's behavior either so that's what I did. Here's a little sample code to get you started:

    Private Sub DoItemListView()
        Dim lvwColumn As ColumnHeader
        Dim itmListItem As ListViewItem
        Dim shtCntr As Short
        Dim objRow As DataRow

        lvwItems.Clear()
        lvwItems.BeginUpdate()
        'Loop through the columns and make a column header for each item
        Try
            For shtCntr = 0 To dsGurpsData.Tables("Advantage").Columns.Count - 1
                lvwColumn = New ColumnHeader()
                'Create Column Header
                lvwColumn.Text = dsGurpsData.Tables("Advantage").Columns.Item(shtCntr).ColumnName.ToString
                lvwItems.Columns.Add(lvwColumn)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        lvwItems.Columns(0).Width = 200


        'Populate the listview items
        Dim objGetItems() As DataRow
        If mnuViewAll.Checked = True Then
            If lvwCategories.SelectedItems.Count > 0 Then
                'Check to see if apostrophe (') is present in string
                If lvwCategories.SelectedItems(0).Text.IndexOf("'") > -1 Then
                    Dim strTemp As String
                    strTemp = Replace(lvwCategories.SelectedItems(0).Text, "'", "''")
                    For Each objRow In dsGurpsData.Tables("Advantage").Select("Category = '" + _
                    strTemp + "'")
                        itmListItem = New ListViewItem()
                        itmListItem.Text = objRow.ItemArray(0)
                        For shtCntr = 1 To objRow.ItemArray.GetUpperBound(0)
                            itmListItem.SubItems.Add(objRow.ItemArray.GetValue(shtCntr))
                        Next
                        lvwItems.Items.Add(itmListItem)
                    Next
                Else
                    For Each objRow In dsGurpsData.Tables("Advantage").Select("Category = '" + _
                    lvwCategories.SelectedItems.Item(0).Text + "'")
                        itmListItem = New ListViewItem()
                        itmListItem.Text = objRow.ItemArray(0)
                        For shtCntr = 1 To objRow.ItemArray.GetUpperBound(0)
                            itmListItem.SubItems.Add(objRow.ItemArray.GetValue(shtCntr))
                        Next
                        lvwItems.Items.Add(itmListItem)
                    Next
                End If
            End If
        ElseIf mnuViewSelected.Checked = True Then
            For Each objRow In dsGurpsData.Tables("Advantage").Select("LevelsTaken > 0")
                itmListItem = New ListViewItem()
                itmListItem.Text = objRow.ItemArray(0)
                For shtCntr = 1 To objRow.ItemArray.GetUpperBound(0)
                    itmListItem.SubItems.Add(objRow.ItemArray.GetValue(shtCntr))
                Next
                lvwItems.Items.Add(itmListItem)
            Next
        End If
        lvwItems.EndUpdate()
    End Sub

you'll need to rename some strings to get it to work with your datasource but the hard part (for me anyhow) was figuring out how to populate the listview from a dataset table. Then you'll want an eventhandler for listview.doubleclick, like so:

    Private Sub lvwItems_DoubleClick(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles lvwItems.DoubleClick
        If lvwItems.Items.Count > 0 And lvwItems.SelectedItems.Count > 0 Then
            DoIncrementAdvantage(1)
        End If
    End Sub

    Private Sub DoIncrementField(ByVal iIncrementBy As Integer)
        Dim objRow As DataRow

        'Update the table
        objRow = dsGurpsData.Tables("Advantage").Rows.Find(lvwItems.SelectedItems(0).Text)
        objRow.BeginEdit()
        objRow("LevelsTaken") += iIncrementBy
        objRow.EndEdit()
        objRow.AcceptChanges()

        'Update the listview
        lvwItems.SelectedItems(0).SubItems(3).Text = objRow("LevelsTaken")
    End Sub

Remember to set the .MultiSelect property of the listview to False and you should be OK. I use this exact code in a program I'm working on and I'm pretty happy with the way it works.

edit: well actually not this EXACT code as I've changed it in some ways that makes it less clear for what I think you're looking for but this worked too at one point (thanks SourceSafe).

[King_Ging]

thanks for the info, will try tomorrow morning when i am back at my own desk

cheers