Project Help

[wolves]

Im having trouble with some coding for a program of mine. Around 80% of the project works but its the last few bits that i need help with.

Its probbaly best if i say what the problems are:

1) Im having trouble removing costs for items which have been removed in a list box (item cost reducted from current totals)

2) Im having trouble doing a running cost in a textbox (which is kinda linked to point 1)

3) Searching, editing and adding items to an array.

i'd be greatful if you could give me help. I will be gladly to post coding to help you.

[Phate]

First, Welcome to DEVPPL

Second, I think it would be helpfull if you posted the code

[wolves]

hi ya, thanks for the warm welcome

Ill explain the problem in detail. On my command button once it is clicked it sends a service name into a list box and it also populates the other cost boxes (text boxes.) they all add correclty but when removing the items from the list box the costs do not go down.

This is the coding for the entering the service into the lsit box

Dim item As String
item = CmbServiceName.Text
Lstservices.AddItem item
labourcost = labourcost + Val(Mid(TxtLabCost1.Text, 2, Len(TxtLabCost1.Text) - 1))
materialcost = materialcost + Val(Mid(TxtMatCost1.Text, 2, Len(TxtMatCost1.Text) - 1))
TxtLabcost2.Text = Format(labourcost, "Currency")
TxtMatCost2.Text = Format(materialcost, "currency")
TxtTotal.Text = Format(labourcost + materialcost, "currency")

This is for removing the items in the list box

Private Sub CmdRemove_Click()
Dim listitem As Integer
listitem = Lstservices.ListIndex
Lstservices.RemoveItem listitem
End Sub

Have you any ideas?

[dragul]

Heya, i recently done a program with similar features. you can download the code from here:
http://www.studionet.uk7.net/media/apps/Code.zip
Hope you can extract the code you want from here.

[jeranio]

Thanks so much for someone who posted the format currency line.
I was struggling for days now to show currency in my project.

Millions of Thanks