OK had to change it about to this :-

PUBLIC SUB CSales_Change()
  TotalSales.Value = 0
  IF BarSales.Text <> NULL THEN TotalSales.Value = BarSales.Value /
SDiv[CheckItem.Index + 1]
  IF OSSales.Text <> NULL THEN TotalSales.Value = TotalSales.Value +
OSSales.Value
  IF OSMultiSales.Text <> NULL THEN TotalSales.Value = TotalSales.Value +
OSMultiSales.Value
END

-- 
View this message in context: 
http://www.nabble.com/Looking-for-a-little-help-with-an-app.-tp23480295p23504809.html
Sent from the gambas-user mailing list archive at Nabble.com.


------------------------------------------------------------------------------
The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your
production scanning environment may not be a perfect world - but thanks to
Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700
Series Scanner you'll get full speed at 300 dpi even with all image 
processing features enabled. http://p.sf.net/sfu/kodak-com
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to