Do If Trim(rs.Fields("SA_type")) = "1" Then a = Trim(rs.Fields("SA_money")) sumplus = sumplus + a Else a = Trim(rs.Fields("SA_money")) summinus = summinus + a End If Set Itemx = ListView2.ListItems.add If Trim(rs.Fields("SA_type")) = "1" Then Itemx.Text = "ÃѺ" Else Itemx.Text = "¨èÒÂ" Itemx.ForeColor = vbRed End If Itemx.SubItems(1) = "ÃÒ¡Òà " & Trim(rs.Fields("SA_supject")) & " à»ç¹à§Ô¹ " & Format(Trim(rs.Fields("SA_money")), "#,###.#0") & " ºÒ·" 'MsgBox Itemx.Text 'MsgBox Text6.Text rs.MoveNext Loop While (rs.EOF = False) Itemx.Text = "Total" Itemx.SubItems(1) = "ยอดร่วม" & " " & DTPicker2.Value & " ¶Ö§ " & DTPicker3.Value & " = ÃÒÂÃѺ " & sumplus & " ºÒ·" & " = ÃÒÂÃѺ " & summinus & " ºÒ·"
Text6.Text = "ÂÍ´ÃÇÁ ÃÐËÇèÒ§ Çѹ·Õè" & " " & DTPicker2.Value & " ¶Ö§ " & DTPicker3.Value & " = " & sum & " ºÒ·"
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง