Dim dr As DataRowView Dim i As Integer = 0 Dim chk As New CheckBox While i < grd.Items.Count dr = grd.Items(i) grd.Items(0)(0).isChecked = True 'chk = CType(dr(0), CheckBox) 'MsgBox(chk.Content) If chk.IsChecked Then MsgBox(dr("amount")) End If i += 1 End While
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)