演算子 '+'はタイプ '10進数'には定義されていません。タイプ 'DBNull'

Question

私のデータグリッドにデータを表示し、textbox2に取り込まれたアイテムの合計を表示しようとしていますが、型 '10進数'で定義され、 'DBNull'と入力してください。 "何が問題ですか？私はこれをひどく仕上げる必要がありますように助けてください。 。:(このような

Private Sub dailySales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    con.Connect() 
    DataGridView1.DataSource = dtb 
    dtb.Columns.Add("Transaction Code") 
    dtb.Columns.Add("Transaction Date ") 
    dtb.Columns.Add("Item Code") 
    dtb.Columns.Add("Item") 
    dtb.Columns.Add("Description") 
    dtb.Columns.Add("Quantity") 
    dtb.Columns.Add("Price") 
    dtb.Columns.Add("Total") 
    display() 
    con.Close() 
    total() 
    TextBox1.Text = DataGridView1.RowCount() 
    Me.DataGridView1.DefaultCellStyle.Font = New Font("Cambria", 10) 
    Me.DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font("Cambria", 12) 
    Me.DataGridView1.DefaultCellStyle.SelectionBackColor = Color.FromArgb(129, 207, 224) 
    Dim i As Integer 
    For i = 0 To DataGridView1.Columns.Count - 1 
     DataGridView1.Columns.Item(i).SortMode = DataGridViewColumnSortMode.Programmatic 
    Next 
End Sub 
Sub total() 
    Dim sum As Decimal = 0 
    For x = 0 To DataGridView1.Rows.Count - 1 
     sum =sum + DataGridView1.Rows(x).Cells(7).Value 
    Next 
    TextBox2.Text = sum 
End Sub 
Sub display() 
    con.Connect() 
    Label6.Text = Date.Now.ToString("dd MMMM yyyy") 
    Dim da = Label6.Text 
    Dim sc = " where lower(tns_date) like lower('%" & da & "%') " 
    Dim sql = "select * from tns " & sc & " order by tns_code desc" 
    odr = con.Retrieve(sql) 
    dtb.Clear() 
    While (odr.Read) 
     Dim ic = odr.GetOracleValue(0) 
     Dim itn = odr.GetOracleValue(1) 
     Dim de = odr.GetOracleValue(2) 
     Dim ca = odr.GetOracleValue(3) 
     Dim pr = odr.GetOracleValue(4) 
     Dim st = odr.GetOracleValue(5) 
     Dim sst = odr.GetOracleValue(6) 
     dtb.Rows.Add(ic, itn, de, ca, pr, st, sst) 
    End While 
    con.Close() 

End Sub 

Answer 1

テスト列7つの値の

Sub total() 
    Dim sum As Decimal = 0 
    For x = 0 To DataGridView1.Rows.Count - 1 
     If Not isDBNull(DataGridView1.Rows(x).Cells(7).Value) then sum =sum + DataGridView1.Rows(x).Cells(7).Value 
    Next 
    TextBox2.Text = sum 
End Sub