運算符'+'沒有爲'Decimal'類型定義，而輸入'DBNull'

即時消息工作來顯示我的數據網格中的數據，並顯示文本框2中帶來的項目總數，但是此錯誤「運算符'+'不是爲'Decimal'類型定義並鍵入'DBNull'。「問題是什麼？請幫助我，我需要完成這個如此糟糕。。:(運算符'+'沒有爲'Decimal'類型定義，而輸入'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

來源

2017-02-20 Santiago Nicholas Mendoza

一列7個值是零當然，你可以測試爲，而不是做加法;或修改查詢（你還沒有表現出）使用'nvl（）'或'coalesce（）'返回零而不是空值？ –

@AlexPoole在我的列中沒有null.how做測試？ –

或測試IsDBnull（DataGridView1.Rows（x）.Cells 7）.Value），如果爲true，則跳過 –

測試這樣

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

來源

2017-02-20 19:12:26

然後我會運行它？ –

運算符'+'沒有爲'Decimal'類型定義，而輸入'DBNull'

回答

相關問題