Private Sub CalculateNet() Dim i As Integer = 0 Dim tmpName_P As Double = 0 For i = 0 To lsvProductsList.Items.Count - 1 tmpName_P += CDbl(lsvProductsList.Items(i).SubItems(2).Text) Next lblNet.Text = tmpName_P.ToString(" 0 ") End Sub
Quote:lsvProductsList.Items.Count
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง