program shut down when looping datagrid..

  • Thread starter Thread starter magmo
  • Start date Start date
M

magmo

Hi


I have a datagrid that have checkboxes added to it and there is also a
button that I want to use as a check what rows has been selected in
the datagrid. But when I use this piece if code the program just
close when I press the button that is supposed to show the selected
rows in the datagrid

<code>

Public Function GetSelectedRows(ByVal dg As DataGrid) As
System.Collections.ArrayList

Dim al As New ArrayList
Dim cm As CurrencyManager = Me.BindingContext(dg.DataSource,
dg.DataMember)
Dim dv As DataView = CType(cm.List, DataView)
Dim i As Integer
For i = 0 To dv.Count - 1
If dg.IsSelected(i) Then
al.Add(i)
End If
End
Next
Return al
End Function 'GetSelectedRows



Private Sub btnMakePDF_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnMakePDF.Click
Dim s As String = "Selected rows:"
Dim o As Object
For Each o In GetSelectedRows(MyDataGrid)
s += " " + o.ToString()
Next o
MessageBox.Show(s)
'MessageBox.Show("Selected items....")
End Sub 'button1_Click

</code>


Does anyone know why?


Regards


Magnus
 
magmo said:
I have a datagrid that have checkboxes added to it and there is also
a button that I want to use as a check what rows has been selected
in the datagrid. But when I use this piece if code the program
just close when I press the button that is supposed to show the
selected rows in the datagrid

<code>

Public Function GetSelectedRows(ByVal dg As DataGrid) As
System.Collections.ArrayList

Dim al As New ArrayList
Dim cm As CurrencyManager =
Me.BindingContext(dg.DataSource,
dg.DataMember)
Dim dv As DataView = CType(cm.List, DataView)
Dim i As Integer
For i = 0 To dv.Count - 1
If dg.IsSelected(i) Then
al.Add(i)
End If
End
Next
Return al
End Function 'GetSelectedRows
Click to expand...

Maybe I misunderstood, but executing "End" is not there to keep the
application alive...


--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html
 
Your Command "End" should be "End Function" or so...

/Lars

magmo said:
Hi


I have a datagrid that have checkboxes added to it and there is also a
button that I want to use as a check what rows has been selected in
the datagrid. But when I use this piece if code the program just
close when I press the button that is supposed to show the selected
rows in the datagrid

<code>

Public Function GetSelectedRows(ByVal dg As DataGrid) As
System.Collections.ArrayList

Dim al As New ArrayList
Dim cm As CurrencyManager = Me.BindingContext(dg.DataSource,
dg.DataMember)
Dim dv As DataView = CType(cm.List, DataView)
Dim i As Integer
For i = 0 To dv.Count - 1
If dg.IsSelected(i) Then
al.Add(i)
End If
End
Next
Return al
End Function 'GetSelectedRows



Private Sub btnMakePDF_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnMakePDF.Click
Dim s As String = "Selected rows:"
Dim o As Object
For Each o In GetSelectedRows(MyDataGrid)
s += " " + o.ToString()
Next o
MessageBox.Show(s)
'MessageBox.Show("Selected items....")
End Sub 'button1_Click

</code>


Does anyone know why?


Regards


Magnus
Click to expand...
 
* (e-mail address removed)-spam.invalid (magmo) scripsit:
I have a datagrid that have checkboxes added to it and there is also a
button that I want to use as a check what rows has been selected in
the datagrid. But when I use this piece if code the program just
close when I press the button that is supposed to show the selected
For i = 0 To dv.Count - 1
If dg.IsSelected(i) Then
al.Add(i)
End If
End
Click to expand...
^^^

This will exit the app.
 
Ahh, ok that explain a lot.

When I run the check, the check doesnt indicate that any rows are
selected even though I have selected rows in the datagrid. Does
anyone see what might be wrong?



Regards


Magnus
 
Hi,

Your code looks to see if the whole row is selected. Shouldn't you be
checking to see if the checkbox is checked?

Ken
-----------------
 
Back
Top