mysql - 如何根据列表框按升序减去

Question

我有一个列表框，这些项目加载到列表框 1

PRODUCTS     METERS
productA     100
productB      70
productC      20
productD       5

我想要做的是，当用户按下“ENTER”键时，程序应该根据米按升序减去。

  Dim x As Integer
    Dim ans As Decimal
    x = ListBox1.Items.Count


    Dim da As New SqlDataAdapter
    Dim strcnn As New SqlConnection
    Dim cmd As New SqlCommand
    Try
        strcnn.ConnectionString = ClsFuncs.connstring("connectionstring1")
        strcnn.Open()
        cmd.Connection = strcnn
        ans = TextBox10.Text / x
        cmd.Connection = strcnn
        cmd.CommandText = "update " & tbl & " set quantity =quantity-" & ans & " where flg2=5    and quantity >0"
        cmd.ExecuteNonQuery()
        MsgBox("Subtracted mass on each products", MsgBoxStyle.Information)

    Catch ex As Exception

        MessageBox.Show(ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
        strcnn.Close()
    End Try

到目前为止，我已经设法使用 listbox.items.count 如上所示，但问题是这段代码划分米相等，例如用户在文本框中输入的值是 175m，代码将 175 除以 4 = 43.75m并在每个产品上减去答案。为了达到我的观点，产品 C 和产品 D 最终为负，例如产品 C(20m-43.75m=23.75m)

是否有任何代码或sql查询可以用来使该代码按升序减去？例如用户输入175m

productA    100-100
productB    70-70
productC    20-5
productD     5

这样产品D就不会被触及？

Answer 1

答案就在你面前......一些伪代码

• 接受用户输入(userInput)
• 如果 ProductA_quantity > userInput，则从 ProductA end 中减去 userInput
• 否则，如果 userInput > ProductA，则从 userInput 中减去 ProductA
• 对剩余产品继续执行相同的顺序，直到 userInput = 0