I'm getting an error when I try to access a grid cell value, which has no value. I tried using the trycast function, but that didn't work. Here is my code below. When the code runs and there's a value the message box show without problem, but if there's no value in the cell I get an error (see attached file). The grid is loaded from the a sub call (see below) Need to know how to handle this situation.
Thanks,
Tom
Private Sub grdIssued_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdIssued.Click
Dim i As Integer
If grdIssued.SelectedRows.Count > 0 Then
' Dim ReturnDate As String = TryCast(Me.grdIssued.Rows(Me.grdIssued.CurrentRow.Index).Cells(5).Value, String)
MsgBox(Me.grdIssued.Rows(Me.grdIssued.CurrentRow.Index).Cells(5).Value)
End If
i = grdIssued.CurrentRow.Index
clsPPE.PPEID = grdIssued.Rows(i).Cells(0).Value
End Sub
Private Sub LoadPPEIssuedGrid()
Dim da As SqlDataAdapter
Dim dt As New DataTable
clsPPE.SelectedMemberID = Me.cboMember.SelectedValue
da = clsPPE.GetPPEIssuedByMemberID
da.Fill(dt)
Me.grdIssued.DataSource = dt
Me.grdIssued.Columns(0).IsVisible = False
Me.grdIssued.Columns(1).Width = 100
Me.grdIssued.Columns(2).Width = 100
Me.grdIssued.Columns(3).Width = 100
Me.grdIssued.Columns(4).Width = 90
Me.grdIssued.Columns(4).FormatString = "{0: M/d/yyyy}"
Me.grdIssued.Columns(5).Width = 90
Me.grdIssued.Columns(5).FormatString = "{0: M/d/yyyy}"
Me.grdIssued.CurrentRow = Nothing
End Sub
Thanks,
Tom
Private Sub grdIssued_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdIssued.Click
Dim i As Integer
If grdIssued.SelectedRows.Count > 0 Then
' Dim ReturnDate As String = TryCast(Me.grdIssued.Rows(Me.grdIssued.CurrentRow.Index).Cells(5).Value, String)
MsgBox(Me.grdIssued.Rows(Me.grdIssued.CurrentRow.Index).Cells(5).Value)
End If
i = grdIssued.CurrentRow.Index
clsPPE.PPEID = grdIssued.Rows(i).Cells(0).Value
End Sub
Private Sub LoadPPEIssuedGrid()
Dim da As SqlDataAdapter
Dim dt As New DataTable
clsPPE.SelectedMemberID = Me.cboMember.SelectedValue
da = clsPPE.GetPPEIssuedByMemberID
da.Fill(dt)
Me.grdIssued.DataSource = dt
Me.grdIssued.Columns(0).IsVisible = False
Me.grdIssued.Columns(1).Width = 100
Me.grdIssued.Columns(2).Width = 100
Me.grdIssued.Columns(3).Width = 100
Me.grdIssued.Columns(4).Width = 90
Me.grdIssued.Columns(4).FormatString = "{0: M/d/yyyy}"
Me.grdIssued.Columns(5).Width = 90
Me.grdIssued.Columns(5).FormatString = "{0: M/d/yyyy}"
Me.grdIssued.CurrentRow = Nothing
End Sub