Visual Basic小计问题:( [英] Visual basic subtotal problem :(
本文介绍了Visual Basic小计问题:(的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
您好我试图用我的代码来解决问题。我希望我的第二个列表框显示我的第一个列表框中所有项目扩展价格的小计。我不知道如何得到小计。请帮助我新的,所以我的代码可能是凌乱的。当我将项目添加到我的第一个列表框时,我不能将每个项目的延长价格作为我的第二个列表框的小计。
Hello im trying to resolve a issue im having with my code. i want my second listbox to display a subtotal of all the items extended prices from my first listbox. i cant figoure out how to get the subtotal. please help im new to this so my code may be messy. when i add the items to my first listbox i cant get the extended price of each as a subtotal to my second listbox.
Public Class Form1
Dim extendedprice As Decimal
Dim subtotal As Decimal
Private Sub btnorder_Click(sender As Object, e As EventArgs) Handles btnorder.Click
Dim itemnumber As Decimal
Dim price As Decimal
Dim quantity As Decimal
itemnumber = txtitemnumber.Text
quantity = txtquantity.Text
extendedprice = price * quantity
'Item Number 100 displays Wrench
If itemnumber = 100 Then
extendedprice = 3.5 * quantity
listorder.Items.Add("Item Number: 100")
listorder.Items.Add("Description: Wrench")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $3.50")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
'Item Number 200 displays Pipe Wrench
If itemnumber = 200 Then
extendedprice = 5.75 * quantity
listorder.Items.Add("Item Number: 200")
listorder.Items.Add("Description: Pipe Wrench")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $5.75")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
'Item Number 300 displays Rip Saw
If itemnumber = 300 Then
extendedprice = 16.23 * quantity
listorder.Items.Add("Item Number: 300")
listorder.Items.Add("Description: Rip Saw")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $16.23")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
'Item Number 400 displays Framing Hammer
If itemnumber = 400 Then
extendedprice = 32.5 * quantity
listorder.Items.Add("Item Number: 400")
listorder.Items.Add("Description: Framing Hammer")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $32.50")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
'Item Number 500 displays Square
If itemnumber = 500 Then
extendedprice = 27.5 * quantity
listorder.Items.Add("Item Number: 500")
listorder.Items.Add("Description: Square")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $27.50")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
'Item Number 600 displays Solder
If itemnumber = 600 Then
extendedprice = 6.34 * quantity
listorder.Items.Add("Item Number: 600")
listorder.Items.Add("Description: Solder")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $6.34")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
'Item Number 700 displays Paste
If itemnumber = 700 Then
extendedprice = 4.26 * quantity
listorder.Items.Add("Item Number: 700")
listorder.Items.Add("Description: Paste")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $4.26")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
'Item Number 800 displays Screwdriver
If itemnumber = 800 Then
extendedprice = 11.77 * quantity
listorder.Items.Add("Item Number: 800")
listorder.Items.Add("Description: Screwdriver")
listorder.Items.Add("Quantity:" & quantity)
listorder.Items.Add("Price: $11.77")
listorder.Items.Add("Extended Price:" & extendedprice.ToString("c"))
End If
' Adds a line under the order
listorder.Items.Add("--------------------------------------------")
'Clears the Item Number Text Box & Quantity Text Box
txtitemnumber.Text = ""
txtquantity.Text = ""
End Sub
Private Sub btncheckout_Click(sender As Object, e As EventArgs) Handles btncheckout.Click
Dim discount As Decimal
Dim totalprice As Decimal
discount = extendedprice - discount
totalprice = extendedprice * discount
listinvoice.Items.Add("Timber Tom’s Hardware")
listinvoice.Items.Add(Date.Now)
listinvoice.Items.Add("--------------------------------------------")
listinvoice.Items.Add("Sub Total " & subtotal.ToString("c"))
'no discount
If rbnodiscount.Checked Then
totalprice = extendedprice
listinvoice.Items.Add("No Discount")
listinvoice.Items.Add("Total Price:" & totalprice.ToString("c"))
End If
'10% discount
If rb10discount.Checked Then
discount = extendedprice * 0.1
totalprice = extendedprice - discount
listinvoice.Items.Add("10%Discount:" & discount.ToString("c"))
listinvoice.Items.Add("Total Price:" & totalprice.ToString("c"))
End If
'15% discount
If rb15discount.Checked Then
discount = extendedprice * 0.15
totalprice = extendedprice - discount
listinvoice.Items.Add("15% Discount:" & discount.ToString("c"))
listinvoice.Items.Add("Total Price:" & totalprice.ToString("c"))
End If
End Sub
Private Sub btnclearitems_Click(sender As Object, e As EventArgs) Handles btnclearitems.Click
'Clears Order List Box
listorder.Items.Clear()
End Sub
Private Sub btnclearinvoice_Click(sender As Object, e As EventArgs) Handles btnclearinvoice.Click
'Clears Invoice List Box
listinvoice.Items.Clear()
End Sub
Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
'Asks if you want to exit
If MsgBox("Are you sure you want to exit?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Application.Exit()
End If
End Sub
End Class
我尝试了什么:
i尝试过不同的方式,但我失去了它的最后一部分;(
What I have tried:
i have tryed different ways but im lost on this last part of it ;(
推荐答案
3.50)
listorder.Items.Add( 扩展价格:& extendedprice.ToString( c))
结束 如果
' 项目编号200显示管道扳手
如果 itemnumber = 200 然后
extendedprice = 5 。 75 *数量
listorder.Items.Add( 项目编号:200)
listorder.Items.Add( 描述:管钳)
listorder.Items.Add( 数量:& quantity)
listorder。 Items.Add( 价格:
3.50") listorder.Items.Add("Extended Price:" & extendedprice.ToString("c")) End If 'Item Number 200 displays Pipe Wrench If itemnumber = 200 Then extendedprice = 5.75 * quantity listorder.Items.Add("Item Number: 200") listorder.Items.Add("Description: Pipe Wrench") listorder.Items.Add("Quantity:" & quantity) listorder.Items.Add("Price:
5.75)
listorder.Items.Add( 扩展价格:& extendedprice.ToString( c))
结束 如果
' 项目编号300显示Rip Saw
如果 itemnumber = 300 然后
extendedprice = 16 。 23 * quantity
listorder.Items.Add( 项目编号:300)
listorder.Items.Add( 描述:Rip Saw)
listorder。 Items.Add( 数量:& quantity)
listorder.Items.Add( 价格:
5.75") listorder.Items.Add("Extended Price:" & extendedprice.ToString("c")) End If 'Item Number 300 displays Rip Saw If itemnumber = 300 Then extendedprice = 16.23 * quantity listorder.Items.Add("Item Number: 300") listorder.Items.Add("Description: Rip Saw") listorder.Items.Add("Quantity:" & quantity) listorder.Items.Add("Price:
16.23)
listorder.Items.Add( 扩展价格:& extendedprice.ToString( c))
结束 如果
' 项目编号400显示框架锤
如果 itemnumber = 400 然后
extendedprice = 32 。 5 * quantity
listorder.Items.Add( 项目编号:400)
listorder.Items.Add( 描述:Framing Hammer)
listorder。 Items.Add( 数量:& quantity)
listorder.Items.Add( 价格:
16.23") listorder.Items.Add("Extended Price:" & extendedprice.ToString("c")) End If 'Item Number 400 displays Framing Hammer If itemnumber = 400 Then extendedprice = 32.5 * quantity listorder.Items.Add("Item Number: 400") listorder.Items.Add("Description: Framing Hammer") listorder.Items.Add("Quantity:" & quantity) listorder.Items.Add("Price:
这篇关于Visual Basic小计问题:(的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文