Title: DataGridView Default Error Dialog
Content: The following Exception occurred in the DataGridView:
System.Exception: Sent to Pinnacle 01/23/2012 is not a valid Value for Double. ---> System.FormatException: Input String was not in a correct Format.
at System.number.stringtoNumber(String str, NumberStyles Options, NumberBuffer& number, NumberFormatInfo info, Boolean parseDecimal)
There is more to this error but pretty much the same content as above over and over again.
Expand|Select|Wrap|Line Numbers
- Private Sub LoadExceptions(ByVal ct As Integer, ByVal sqlQry As String)
- grdExceptions.BringToFront()
- grdExceptions.Rows.Clear()
- grdExceptions.Columns.Clear()
- Dim strSql As String
- Dim ownerFld As String = cbOwner.Text '.Substring(1, 1)
- Dim contractFld As String = cbContract.Text '.Substring(1, 1)
- Dim ResortID As String = lvResortsA.SelectedItems(0).SubItems(0).Text.ToString.Split(":")(0)
- Dim recCt As Integer = grdResult.RowCount
- Dim sqldr As SqlDataReader
- Dim myFields As String = "Updated:ResortID:OwnerID:ContractID:Collector:Description:User1:User2:User3:User4:User5:Errors "
- Dim splitFlds() As String = myFields.Split(":")
- Dim fldct As Integer = myFields.Split(":").Count
- For F As Integer = 0 To fldct - 1
- Dim colName As String = splitFlds(F)
- If F = 0 Then
- Dim ChkBox As New DataGridViewCheckBoxColumn
- grdExceptions.Columns.Insert(0, ChkBox)
- grdExceptions.Columns(F).Name = colName
- grdExceptions.Columns(F).ReadOnly = False
- Else
- grdExceptions.Columns.Add(colName, colName)
- grdExceptions.Columns(F).ReadOnly = False
- End If
- Next
- Dim hdrRec As Integer = 0
- If rbYes.Checked Then hdrRec = 1
- ProgressBar1.Maximum = grdResult.RowCount - (hdrRec + 1)
- ProgressBar1.Step = 1
- If hdrRec = 1 Then recCt = recCt - 1
- For D As Integer = (0 + hdrRec) To recCt - 1
- ProgressBar1.PerformStep()
- Dim OwnerId As String = grdResult.Rows(D).Cells(ownerFld).Value.ToString.Trim
- Dim ContractId As String = grdResult.Rows(D).Cells(contractFld).Value.ToString.Trim
- 'myWhere = " where "
- Try
- Dim Con As New SqlConnection(g_DbConnStrings.CudbSqlConnStr)
- Con.Open()
- Dim rdr As SqlDataReader = Nothing
- strSql = sqlQry
- If strSql.ToString.ToUpper.Contains("WHERE") Then
- strSql &= " AND ownerID = '" & OwnerId & "' and contractID = '" & ContractId & "' and ResortID = '" & ResortID & "'"
- Else
- strSql &= " Where ownerID = '" & OwnerId & "' and contractID = '" & ContractId & "' and ResortID = '" & ResortID & "'"
- End If
- Dim Rw As vs.Controls.TableView.Row
- Dim cmd As New SqlCommand(strSql, Con)
- rdr = cmd.ExecuteReader()
- While rdr.Read
- ProgressBar1.PerformStep()
- gLblStatus.Text = "Searching for Exceptions"
- gLblStatus.gLblPulse = True
- Dim errText As String = ""
- Dim ckErr As Boolean = False
- Dim collector As String = IIf(IsDBNull(rdr.Item(3).ToString.Trim), "", rdr.Item(3).ToString.Trim)
- If ckUD6a.Checked = True Then
- If collector.Trim <> cbUD6a.Text.Split(":")(0).Trim Then
- ckErr = True
- errText = " Invalid Collector;"
- End If
- End If
- Dim note As String = IIf(IsDBNull(rdr.Item(4).ToString.Trim), "", rdr.Item(4).ToString.Trim) 'Sample Output = 'Sent to Pinnacle 01/23/2012'
- If ckAddDesc.Checked = True Then
- If txtDescription.Text.Trim <> note Then
- ckErr = True
- errText &= " Invalid Description;"
- End If
- End If
- Dim UD1 As String = IIf(IsDBNull(rdr.Item(5).ToString.Trim), "", rdr.Item(5).ToString.Trim) 'Sample Output = Collections'
- If ckUD1a.Checked = True Then
- If cbUD1a.Text.Trim <> UD1 Then
- ckErr = True
- errText &= " Invalid User Field 1;"
- End If
- End If
- Dim UD2 As String = IIf(IsDBNull(rdr.Item(6).ToString.Trim), "", rdr.Item(6).ToString.Trim) 'Sample Output = 'Nothing'
- If ckUD2a.Checked = True Then
- If cbUD2a.Text.Trim <> UD2 Then
- ckErr = True
- errText &= " Invalid User Field 2;"
- End If
- End If
- Dim UD3 As String = IIf(IsDBNull(rdr.Item(7).ToString.Trim), "", rdr.Item(7).ToString.Trim) 'Sample Output = 'Nothing'
- If ckUD3a.Checked = True Then
- If cbUD3a.Text.Trim <> UD3 Then
- ckErr = True
- errText &= " Invalid User Field 3;"
- End If
- End If
- Dim UD4 As String = IIf(IsDBNull(rdr.Item(8).ToString.Trim), "", rdr.Item(8).ToString.Trim) 'Sample Output = 'Nothing'
- If ckUD4a.Checked = True Then
- If cbUD4a.Text.Trim <> UD4 Then
- ckErr = True
- errText &= " Invalid User Field 4;"
- End If
- End If
- Dim UD5 As String = IIf(IsDBNull(rdr.Item(9).ToString.Trim), "", rdr.Item(9).ToString.Trim) 'Sample Output = ''
- If ckUD5a.Checked = True Then
- If cbUD5a.Text.Trim <> UD5 Then
- ckErr = True
- errText &= " Invalid User Field 5;"
- End If
- End If
- If ckErr = True Then
- grdResult.Rows.Item(D).Cells(0).Value = True
- Else
- grdResult.Rows.Item(D).Cells(0).Value = False
- End If
- grdResult.Rows(D).Cells(1).Value = ResortID
- grdResult.Rows(D).Cells(2).Value = OwnerId
- grdResult.Rows(D).Cells(3).Value = ContractId
- grdResult.Rows(D).Cells(4).Value = collector
- grdResult.Rows(D).Cells(5).Value = note ''System.Exception: Sent to Pinnacle 01/23/2012 is not a valid Value for Double. --->
- grdResult.Rows(D).Cells(6).Value = UD1 ''System.Exception: Collections is not a valid Value for Decimal. --->
- grdResult.Rows(D).Cells(7).Value = UD2 ''System.Exception: is not a valid Value for Decimal. --->
- grdResult.Rows(D).Cells(8).Value = UD3
- grdResult.Rows(D).Cells(9).Value = UD4
- grdResult.Rows(D).Cells(10).Value = UD5
- grdResult.Rows(D).Cells(11).Value = errText
- End While
- rdr.Close()
- Con.Close()
- Catch ex As System.Exception
- MsgBox(ex.Message, MsgBoxStyle.Critical)
- Sys.IO.MyLog.Write(Date.Today, ": " & ex.Message, EventLogEntryType.Error)
- End Try
- Next
- gLblStatus.Text = "Waiting on User...."
- gLblStatus.gLblPulse = False
- ProgressBar1.Value = 0
- sqlConnections.Close()
- SqlCmd = Nothing
- sqldr = Nothing
- End Sub
I apologize for the immature style of coding as I am self educated in VB.Net Programming. I am sure there are more effective ways to accomplish what I have written, but for the most part my code does exactly what I need it to do.
Thank you for any assistance you can offer!
If you need more information I would be happy to provide anything you may need to assist me.
-Amanda-