я хочу добавить процентное количество, когда я нажимаю на поле со списком.есть ли способ к этому?

Question

система ящиков.он хочет, когда я щелкаю пункты в поле со списком, он должен добавить процентную сумму и добавить к общей цене.В примере формы есть две радиокнопки с именами cash = 2% и credit = 5% card.if нажмите кнопку cash и поле со списком, это должно добавить процентную сумму к элементу.

Открытый класс Form1 Dim ds As DataSet Dim dr As DataRow Dim dt As DataTable

Private Sub btnaddnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddnew.Click
    dr = dt.NewRow

    dr(0) = txtcode.Text
    dr(1) = CmbCategory.Text
    dr(2) = txtname.Text
    dr(3) = txtqty.Text
    dr(4) = txtprice.Text
    dt.Rows.Add(dr)

    txtsubtotal.Text = Val(txtsubtotal.Text) + Val(txtqty.Text) * Val(txtprice.Text)

    txtcode.Clear()

    txtname.Clear()
    txtqty.Clear()
    txtprice.Clear()
    txtcode.Focus()
    txtdiscount.Text = 0

    txttotal.Text = Val(txtsubtotal.Text) - Val(txtdiscount.Text)


End Sub

Private Sub txtcode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcode.KeyPress
    If Asc(e.KeyChar) = 13 Then
        txtname.Focus()
    End If
End Sub

Private Sub txtcode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcode.TextChanged

End Sub

Private Sub txtname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtname.KeyPress
    If Asc(e.KeyChar) = 13 Then
        txtqty.Focus()
    End If
End Sub

Private Sub txtname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtname.TextChanged

End Sub

Private Sub txtqty_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtqty.KeyPress
    If Asc(e.KeyChar) = 13 Then
        txtprice.Focus()
    End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dt = New DataTable("Items")

    dt.Columns.add("Code")
    dt.Columns.Add("Category")
    dt.Columns.Add("Name")
    dt.Columns.add("Qty")
    dt.Columns.add("Price")
    ds = New DataSet()
    ds.Tables.add(dt)
    DataGridView1.DataMember = "Items"
    DataGridView1.DataSource = ds
End Sub

Private Sub CmbCategory_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbCategory.SelectedIndexChanged

End Sub

Конечный класс

введите описание изображения здесь