使用listview在条件表达式错误中数据类型不匹配

Question

我在条件表达式中得到Data type mismatch。我试图在销售后更新数量。

我在另一个程序中使用了这个代码，它完美无缺。我已经多次查看代码，看起来没问题。

For i = 0 To ListView1.Items.Count - 1
    con = New OleDbConnection(cs)
    con.Open()

    Dim cb2 As String = "update tblProduct set Quantity = Quantity - " & CInt(ListView1.Items(i).SubItems(4).Text) & " where product_code= " & CInt(ListView1.Items(i).SubItems(1).Text) & ""


    cmd = New OleDbCommand(cb2)

    cmd.Connection = con


    cmd.ExecuteReader()
    con.Close()
Next